home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / windownt / awksrc.zip / AWKTAB~1.C < prev    next >
C/C++ Source or Header  |  1993-09-26  |  106KB  |  3,232 lines
  1.  
  2. /*  A Bison parser, made from awk.y  */
  3.  
  4. #define YYBISON 1  /* Identify Bison output.  */
  5.  
  6. #define    FUNC_CALL    258
  7. #define    NAME    259
  8. #define    REGEXP    260
  9. #define    ERROR    261
  10. #define    YNUMBER    262
  11. #define    YSTRING    263
  12. #define    RELOP    264
  13. #define    APPEND_OP    265
  14. #define    ASSIGNOP    266
  15. #define    MATCHOP    267
  16. #define    NEWLINE    268
  17. #define    CONCAT_OP    269
  18. #define    LEX_BEGIN    270
  19. #define    LEX_END    271
  20. #define    LEX_IF    272
  21. #define    LEX_ELSE    273
  22. #define    LEX_RETURN    274
  23. #define    LEX_DELETE    275
  24. #define    LEX_WHILE    276
  25. #define    LEX_DO    277
  26. #define    LEX_FOR    278
  27. #define    LEX_BREAK    279
  28. #define    LEX_CONTINUE    280
  29. #define    LEX_PRINT    281
  30. #define    LEX_PRINTF    282
  31. #define    LEX_NEXT    283
  32. #define    LEX_EXIT    284
  33. #define    LEX_FUNCTION    285
  34. #define    LEX_GETLINE    286
  35. #define    LEX_IN    287
  36. #define    LEX_AND    288
  37. #define    LEX_OR    289
  38. #define    INCREMENT    290
  39. #define    DECREMENT    291
  40. #define    LEX_BUILTIN    292
  41. #define    LEX_LENGTH    293
  42. #define    UNARY    294
  43.  
  44. #line 26 "awk.y"
  45.  
  46. #ifdef DEBUG
  47. #define YYDEBUG 12
  48. #endif
  49.  
  50. #define    YYMAXDEPTH    300
  51. #define    YYSSIZE    YYMAXDEPTH
  52.  
  53. #include "awk.h"
  54.  
  55. static void yyerror (); /* va_alist */
  56. static char *get_src_buf P((void));
  57. static int yylex P((void));
  58. static NODE *node_common P((NODETYPE op));
  59. static NODE *snode P((NODE *subn, NODETYPE op, int sindex));
  60. static NODE *mkrangenode P((NODE *cpair));
  61. static NODE *make_for_loop P((NODE *init, NODE *cond, NODE *incr));
  62. static NODE *append_right P((NODE *list, NODE *new));
  63. static void func_install P((NODE *params, NODE *def));
  64. static void pop_var P((NODE *np, int freeit));
  65. static void pop_params P((NODE *params));
  66. static NODE *make_param P((char *name));
  67. static NODE *mk_rexp P((NODE *exp));
  68.  
  69. static int want_assign;        /* lexical scanning kludge */
  70. static int want_regexp;        /* lexical scanning kludge */
  71. static int can_return;        /* lexical scanning kludge */
  72. static int io_allowed = 1;    /* lexical scanning kludge */
  73. static char *lexptr;        /* pointer to next char during parsing */
  74. static char *lexend;
  75. static char *lexptr_begin;    /* keep track of where we were for error msgs */
  76. static char *lexeme;        /* beginning of lexeme for debugging */
  77. static char *thisline = NULL;
  78. #define YYDEBUG_LEXER_TEXT (lexeme)
  79. static int param_counter;
  80. static char *tokstart = NULL;
  81. static char *token = NULL;
  82. static char *tokend;
  83.  
  84. NODE *variables[HASHSIZE];
  85.  
  86. extern char *source;
  87. extern int sourceline;
  88. extern char *cmdline_src;
  89. extern char **srcfiles;
  90. extern int errcount;
  91. extern NODE *begin_block;
  92. extern NODE *end_block;
  93.  
  94. #line 76 "awk.y"
  95. typedef union {
  96.     long lval;
  97.     AWKNUM fval;
  98.     NODE *nodeval;
  99.     NODETYPE nodetypeval;
  100.     char *sval;
  101.     NODE *(*ptrval)();
  102. } YYSTYPE;
  103.  
  104. #ifndef YYLTYPE
  105. typedef
  106.   struct yyltype
  107.     {
  108.       int timestamp;
  109.       int first_line;
  110.       int first_column;
  111.       int last_line;
  112.       int last_column;
  113.       char *text;
  114.    }
  115.   yyltype;
  116.  
  117. #define YYLTYPE yyltype
  118. #endif
  119.  
  120. #include <stdio.h>
  121.  
  122. #ifndef __STDC__
  123. #define const
  124. #endif
  125.  
  126.  
  127.  
  128. #define    YYFINAL        308
  129. #define    YYFLAG        -32768
  130. #define    YYNTBASE    61
  131.  
  132. #define YYTRANSLATE(x) ((unsigned)(x) <= 294 ? yytranslate[x] : 108)
  133.  
  134. static const char yytranslate[] = {     0,
  135.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  136.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  137.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  138.      2,     2,    49,     2,     2,    52,    48,     2,     2,    53,
  139.     54,    46,    44,    60,    45,     2,    47,     2,     2,     2,
  140.      2,     2,     2,     2,     2,     2,     2,    40,    59,    41,
  141.      2,    42,    39,     2,     2,     2,     2,     2,     2,     2,
  142.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  143.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  144.     55,     2,    56,    51,     2,     2,     2,     2,     2,     2,
  145.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  146.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  147.      2,     2,    57,    43,    58,     2,     2,     2,     2,     2,
  148.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  149.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  150.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  151.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  152.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  153.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  154.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  155.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  156.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  157.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  158.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  159.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  160.      2,     2,     2,     2,     2,     1,     2,     3,     4,     5,
  161.      6,     7,     8,     9,    10,    11,    12,    13,    14,    15,
  162.     16,    17,    18,    19,    20,    21,    22,    23,    24,    25,
  163.     26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
  164.     36,    37,    38,    50
  165. };
  166.  
  167. static const short yyprhs[] = {     0,
  168.      0,     4,     6,     9,    11,    14,    15,    19,    20,    24,
  169.     27,    30,    33,    35,    38,    41,    43,    45,    47,    49,
  170.     51,    52,    60,    65,    67,    71,    72,    77,    83,    88,
  171.     90,    93,    95,    98,   100,   103,   106,   109,   113,   115,
  172.    122,   131,   140,   151,   161,   164,   167,   174,   179,   183,
  173.    187,   188,   193,   200,   203,   205,   207,   214,   224,   226,
  174.    229,   230,   232,   233,   236,   237,   240,   243,   246,   247,
  175.    249,   251,   255,   257,   260,   264,   265,   267,   268,   270,
  176.    272,   276,   278,   281,   285,   289,   290,   292,   294,   298,
  177.    300,   303,   307,   311,   312,   317,   323,   328,   332,   336,
  178.    340,   344,   346,   349,   353,   357,   361,   365,   371,   373,
  179.    376,   377,   382,   386,   390,   394,   396,   399,   403,   407,
  180.    411,   417,   419,   422,   424,   426,   430,   434,   438,   442,
  181.    446,   450,   453,   457,   458,   464,   469,   471,   476,   479,
  182.    482,   484,   486,   489,   492,   495,   498,   500,   501,   503,
  183.    505,   510,   513,   516,   519,   522,   524,   525,   527,   529
  184. };
  185.  
  186. static const short yyrhs[] = {    82,
  187.     62,    82,     0,    63,     0,    62,    63,     0,     1,     0,
  188.     62,     1,     0,     0,    15,    64,    74,     0,     0,    16,
  189.     65,    74,     0,    15,    76,     0,    16,    76,     0,    71,
  190.     74,     0,    74,     0,    71,    76,     0,    68,    70,     0,
  191.      4,     0,     3,     0,    67,     0,    37,     0,    38,     0,
  192.      0,    30,    69,    66,    53,    85,   104,    82,     0,   102,
  193.     75,   103,   105,     0,    92,     0,    92,   107,    92,     0,
  194.      0,    47,    73,     5,    47,     0,   102,    75,   103,   105,
  195.     82,     0,   102,   103,   105,    82,     0,    77,     0,    75,
  196.     77,     0,     1,     0,    75,     1,     0,    81,     0,   106,
  197.     82,     0,   106,    82,     0,   102,   103,     0,   102,    75,
  198.    103,     0,    80,     0,    21,    53,    92,   104,    82,    77,
  199.      0,    22,    82,    77,    21,    53,    92,   104,    82,     0,
  200.     23,    53,     4,    32,     4,   104,    82,    77,     0,    23,
  201.     53,    87,   106,    92,   106,    87,   104,    82,    77,     0,
  202.     23,    53,    87,   106,   106,    87,   104,    82,    77,     0,
  203.     24,    76,     0,    25,    76,     0,    79,    53,    91,   104,
  204.     84,    76,     0,    79,    88,    84,    76,     0,    28,    87,
  205.     76,     0,    29,    87,    76,     0,     0,    19,    78,    87,
  206.     76,     0,    20,     4,    55,    91,    56,    76,     0,    92,
  207.     76,     0,    26,     0,    27,     0,    17,    53,    92,   104,
  208.     82,    77,     0,    17,    53,    92,   104,    82,    77,    18,
  209.     82,    77,     0,    13,     0,    81,    13,     0,     0,    81,
  210.      0,     0,    41,    96,     0,     0,    42,    92,     0,    10,
  211.     92,     0,    43,    92,     0,     0,    86,     0,     4,     0,
  212.     86,   107,     4,     0,     1,     0,    86,     1,     0,    86,
  213.    107,     1,     0,     0,    92,     0,     0,    89,     0,    94,
  214.      0,    89,   107,    94,     0,     1,     0,    89,     1,     0,
  215.     89,     1,    94,     0,    89,   107,     1,     0,     0,    91,
  216.      0,    92,     0,    91,   107,    92,     0,     1,     0,    91,
  217.      1,     0,    91,     1,    92,     0,    91,   107,     1,     0,
  218.      0,   101,    11,    93,    92,     0,    53,    91,   104,    32,
  219.      4,     0,    92,    43,    31,   100,     0,    31,   100,    83,
  220.      0,    92,    33,    92,     0,    92,    34,    92,     0,    92,
  221.     12,    92,     0,    72,     0,    49,    72,     0,    92,    32,
  222.      4,     0,    92,     9,    92,     0,    92,    41,    92,     0,
  223.     92,    42,    92,     0,    92,    39,    92,    40,    92,     0,
  224.     96,     0,    92,    92,     0,     0,   101,    11,    95,    94,
  225.      0,    94,    33,    94,     0,    94,    34,    94,     0,    31,
  226.    100,    83,     0,    72,     0,    49,    72,     0,    94,    12,
  227.     94,     0,    94,    32,     4,     0,    94,     9,    94,     0,
  228.     94,    39,    94,    40,    94,     0,    96,     0,    94,    94,
  229.      0,    97,     0,    99,     0,    96,    51,    96,     0,    96,
  230.     46,    96,     0,    96,    47,    96,     0,    96,    48,    96,
  231.      0,    96,    44,    96,     0,    96,    45,    96,     0,    49,
  232.     96,     0,    53,    92,   104,     0,     0,    37,    98,    53,
  233.     90,   104,     0,    38,    53,    90,   104,     0,    38,     0,
  234.      3,    53,    90,   104,     0,    35,   101,     0,    36,   101,
  235.      0,     7,     0,     8,     0,    45,    96,     0,    44,    96,
  236.      0,   101,    35,     0,   101,    36,     0,   101,     0,     0,
  237.    101,     0,     4,     0,     4,    55,    91,    56,     0,    52,
  238.     97,     0,    52,   101,     0,    57,    82,     0,    58,    82,
  239.      0,    54,     0,     0,   106,     0,    59,     0,    60,    82,
  240.      0
  241. };
  242.  
  243. #if YYDEBUG != 0
  244. static const short yyrline[] = { 0,
  245.    136,   141,   149,   165,   166,   170,   172,   186,   188,   202,
  246.    208,   214,   216,   218,   231,   240,   242,   244,   254,   255,
  247.    259,   263,   271,   280,   282,   291,   293,   309,   311,   316,
  248.    318,   326,   328,   333,   334,   338,   340,   342,   344,   346,
  249.    348,   350,   355,   359,   364,   367,   370,   372,   383,   396,
  250.    398,   400,   402,   404,   409,   411,   416,   421,   428,   430,
  251.    434,   435,   439,   441,   446,   448,   450,   452,   457,   459,
  252.    464,   466,   468,   470,   472,   478,   480,   485,   487,   492,
  253.    494,   500,   502,   504,   506,   511,   513,   518,   520,   526,
  254.    528,   530,   532,   537,   540,   545,   547,   552,   558,   560,
  255.    562,   568,   570,   578,   580,   586,   588,   590,   592,   594,
  256.    599,   602,   603,   605,   607,   613,   615,   617,   619,   621,
  257.    623,   625,   627,   632,   633,   635,   637,   639,   641,   643,
  258.    645,   650,   652,   654,   659,   661,   663,   671,   675,   677,
  259.    679,   681,   684,   691,   696,   698,   700,   704,   706,   711,
  260.    713,   721,   723,   728,   732,   736,   740,   741,   745,   748
  261. };
  262.  
  263. static const char * const yytname[] = {   "$","error","$illegal.","FUNC_CALL",
  264. "NAME","REGEXP","ERROR","YNUMBER","YSTRING","RELOP","APPEND_OP","ASSIGNOP","MATCHOP",
  265. "NEWLINE","CONCAT_OP","LEX_BEGIN","LEX_END","LEX_IF","LEX_ELSE","LEX_RETURN",
  266. "LEX_DELETE","LEX_WHILE","LEX_DO","LEX_FOR","LEX_BREAK","LEX_CONTINUE","LEX_PRINT",
  267. "LEX_PRINTF","LEX_NEXT","LEX_EXIT","LEX_FUNCTION","LEX_GETLINE","LEX_IN","LEX_AND",
  268. "LEX_OR","INCREMENT","DECREMENT","LEX_BUILTIN","LEX_LENGTH","'?'","':'","'<'",
  269. "'>'","'|'","'+'","'-'","'*'","'/'","'%'","'!'","UNARY","'^'","'$'","'('","')'",
  270. "'['","']'","'{'","'}'","';'","','","start","program","rule","@1","@2","func_name",
  271. "lex_builtin","function_prologue","@3","function_body","pattern","regexp","@4",
  272. "action","statements","statement_term","statement","@5","print","if_statement",
  273. "nls","opt_nls","input_redir","output_redir","opt_param_list","param_list","opt_exp",
  274. "opt_rexpression_list","rexpression_list","opt_expression_list","expression_list",
  275. "exp","@6","rexp","@7","simp_exp","non_post_simp_exp","@8","post_inc_dec_exp",
  276. "opt_variable","variable","l_brace","r_brace","r_paren","opt_semi","semi","comma",
  277. ""
  278. };
  279. #endif
  280.  
  281. static const short yyr1[] = {     0,
  282.     61,    62,    62,    62,    62,    64,    63,    65,    63,    63,
  283.     63,    63,    63,    63,    63,    66,    66,    66,    67,    67,
  284.     69,    68,    70,    71,    71,    73,    72,    74,    74,    75,
  285.     75,    75,    75,    76,    76,    77,    77,    77,    77,    77,
  286.     77,    77,    77,    77,    77,    77,    77,    77,    77,    77,
  287.     78,    77,    77,    77,    79,    79,    80,    80,    81,    81,
  288.     82,    82,    83,    83,    84,    84,    84,    84,    85,    85,
  289.     86,    86,    86,    86,    86,    87,    87,    88,    88,    89,
  290.     89,    89,    89,    89,    89,    90,    90,    91,    91,    91,
  291.     91,    91,    91,    93,    92,    92,    92,    92,    92,    92,
  292.     92,    92,    92,    92,    92,    92,    92,    92,    92,    92,
  293.     95,    94,    94,    94,    94,    94,    94,    94,    94,    94,
  294.     94,    94,    94,    96,    96,    96,    96,    96,    96,    96,
  295.     96,    97,    97,    98,    97,    97,    97,    97,    97,    97,
  296.     97,    97,    97,    97,    99,    99,    99,   100,   100,   101,
  297.    101,   101,   101,   102,   103,   104,   105,   105,   106,   107
  298. };
  299.  
  300. static const short yyr2[] = {     0,
  301.      3,     1,     2,     1,     2,     0,     3,     0,     3,     2,
  302.      2,     2,     1,     2,     2,     1,     1,     1,     1,     1,
  303.      0,     7,     4,     1,     3,     0,     4,     5,     4,     1,
  304.      2,     1,     2,     1,     2,     2,     2,     3,     1,     6,
  305.      8,     8,    10,     9,     2,     2,     6,     4,     3,     3,
  306.      0,     4,     6,     2,     1,     1,     6,     9,     1,     2,
  307.      0,     1,     0,     2,     0,     2,     2,     2,     0,     1,
  308.      1,     3,     1,     2,     3,     0,     1,     0,     1,     1,
  309.      3,     1,     2,     3,     3,     0,     1,     1,     3,     1,
  310.      2,     3,     3,     0,     4,     5,     4,     3,     3,     3,
  311.      3,     1,     2,     3,     3,     3,     3,     5,     1,     2,
  312.      0,     4,     3,     3,     3,     1,     2,     3,     3,     3,
  313.      5,     1,     2,     1,     1,     3,     3,     3,     3,     3,
  314.      3,     2,     3,     0,     5,     4,     1,     4,     2,     2,
  315.      1,     1,     2,     2,     2,     2,     1,     0,     1,     1,
  316.      4,     2,     2,     2,     2,     1,     0,     1,     1,     2
  317. };
  318.  
  319. static const short yydefact[] = {    61,
  320.     59,    62,     0,    60,     4,     0,   150,   141,   142,     6,
  321.      8,    21,   148,     0,     0,   134,   137,     0,     0,    26,
  322.      0,     0,     0,    61,     0,     2,     0,     0,   102,    13,
  323.     24,   109,   124,   125,   147,     0,     0,     0,   159,     0,
  324.     10,    34,    61,     0,    11,     0,    63,   149,   139,   140,
  325.      0,     0,     0,     0,   144,   147,   143,     0,   103,   132,
  326.    152,   153,    90,     0,    88,   154,     5,     3,     1,    15,
  327.      0,    12,    14,     0,     0,     0,     0,     0,     0,     0,
  328.      0,     0,    61,   110,     0,     0,     0,     0,     0,     0,
  329.      0,    94,   145,   146,    32,     0,    51,     0,     0,    61,
  330.      0,     0,     0,    55,    56,    76,    76,    61,     0,    30,
  331.      0,    39,     0,     0,   157,    61,     0,     0,    88,     0,
  332.      7,    35,     9,    17,    16,    19,    20,     0,    18,     0,
  333.     98,     0,     0,     0,     0,    91,   156,     0,     0,   133,
  334.      0,   105,   101,   104,    99,   100,     0,   106,   107,   148,
  335.    160,    25,   130,   131,   127,   128,   129,   126,     0,     0,
  336.     76,     0,     0,     0,    76,    45,    46,     0,    77,     0,
  337.    155,    33,    31,   157,    82,   148,     0,     0,   116,    65,
  338.      0,    80,   122,   147,    54,     0,    37,    61,   158,    36,
  339.    138,   151,     0,    64,     0,   136,    27,    92,     0,    93,
  340.     89,   157,     0,    97,    95,     0,     0,     0,     0,     0,
  341.    150,     0,    49,    50,    61,    63,   117,     0,     0,     0,
  342.      0,     0,    83,     0,     0,     0,     0,     0,     0,     0,
  343.    123,   111,    38,    29,    73,    71,     0,     0,   135,    96,
  344.     23,   108,    61,    52,     0,    61,     0,     0,     0,    28,
  345.    115,    65,    67,    66,    68,    48,    84,    85,    81,   120,
  346.    118,   119,   113,   114,     0,     0,    61,    74,     0,     0,
  347.      0,     0,     0,     0,     0,    76,     0,     0,   112,    22,
  348.     75,    72,    57,    53,    40,     0,    61,    76,     0,    47,
  349.    121,    61,    61,     0,     0,    61,     0,    41,    42,    61,
  350.      0,    58,     0,    44,    43,     0,     0,     0
  351. };
  352.  
  353. static const short yydefgoto[] = {   306,
  354.     25,    26,    40,    44,   128,   129,    27,    46,    70,    28,
  355.     29,    58,    30,   109,    41,   110,   161,   111,   112,     2,
  356.      3,   131,   222,   237,   238,   168,   180,   181,   117,   118,
  357.     84,   159,   231,   266,    32,    33,    51,    34,    47,    35,
  358.    114,   115,   140,   188,   116,   139
  359. };
  360.  
  361. static const short yypact[] = {    15,
  362. -32768,    19,   995,-32768,-32768,   -24,   -25,-32768,-32768,    -2,
  363.     -2,-32768,     6,     6,     6,-32768,   -16,   393,   393,-32768,
  364.   1713,   393,  1087,    15,   791,-32768,   -12,    -7,-32768,-32768,
  365.    737,   189,-32768,-32768,   106,   521,  1067,  1087,-32768,   -12,
  366. -32768,    19,    15,   -12,-32768,   110,    -1,-32768,-32768,-32768,
  367.     -5,  1067,   393,  1600,    11,   -11,    11,    62,-32768,    11,
  368. -32768,-32768,-32768,    25,  1200,-32768,-32768,-32768,-32768,-32768,
  369.    627,-32768,-32768,  1600,  1600,    65,  1600,  1600,  1600,  1600,
  370.   1600,    42,    15,   914,  1600,   393,   393,   393,   393,   393,
  371.    393,-32768,-32768,-32768,-32768,    37,-32768,   114,    54,    15,
  372.     57,    -2,    -2,-32768,-32768,  1600,  1600,    15,   580,-32768,
  373.    684,-32768,   895,   521,    60,    15,    70,    26,  1299,    38,
  374. -32768,-32768,-32768,-32768,-32768,-32768,-32768,    63,-32768,   393,
  375. -32768,  1067,    70,  1200,    79,  1600,-32768,    95,  1134,-32768,
  376.    580,  1775,  1728,-32768,  1440,  1346,  1252,  1775,  1775,     6,
  377. -32768,  1299,   103,   103,    11,    11,    11,    11,  1600,  1600,
  378.   1600,    73,  1600,   838,  1647,-32768,-32768,    -2,  1299,    -2,
  379. -32768,-32768,-32768,    60,-32768,     6,  1713,  1087,-32768,    92,
  380.      4,  1487,   189,   109,-32768,   580,-32768,    15,-32768,-32768,
  381. -32768,-32768,    12,   189,    70,-32768,-32768,  1299,   126,-32768,
  382.   1299,    60,  1600,-32768,  1299,  1200,    -2,  1087,  1200,   116,
  383.    -17,    60,-32768,-32768,    15,    -1,-32768,    25,  1600,  1600,
  384.   1600,    -2,  1666,  1153,  1666,  1666,   135,  1666,  1666,  1666,
  385.    969,-32768,-32768,-32768,-32768,-32768,    70,    41,-32768,-32768,
  386. -32768,  1299,    15,-32768,    52,    15,   100,   155,  1020,-32768,
  387. -32768,    92,  1299,  1299,  1299,-32768,  1487,-32768,  1487,   703,
  388.   1790,-32768,  1581,  1534,  1393,  1666,    15,-32768,    17,   838,
  389.     -2,   838,  1600,    70,   948,  1600,    -2,  1666,  1487,-32768,
  390. -32768,-32768,   152,-32768,-32768,  1200,    15,  1600,    70,-32768,
  391.   1487,    15,    15,   838,    70,    15,   838,-32768,-32768,    15,
  392.    838,-32768,   838,-32768,-32768,   171,   177,-32768
  393. };
  394.  
  395. static const short yypgoto[] = {-32768,
  396. -32768,   153,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
  397.    229,-32768,    81,   -59,   305,   101,-32768,-32768,-32768,    77,
  398.    148,   -35,   -70,-32768,-32768,  -100,-32768,-32768,   -49,   -15,
  399.     -3,-32768,   -27,-32768,   240,   162,-32768,-32768,   -61,    78,
  400.     16,  -105,   -63,  -143,   112,   -29
  401. };
  402.  
  403.  
  404. #define    YYLAST        1843
  405.  
  406.  
  407. static const short yytable[] = {    31,
  408.    138,    85,   133,   174,   223,     1,   170,    64,   187,     7,
  409.      1,   141,   235,   -79,   248,   236,   -79,   281,    36,    65,
  410.    282,    31,   120,    93,    94,   136,   136,     1,    37,    38,
  411.    215,     4,   113,   119,   119,   202,    52,    38,   136,   130,
  412.     36,   268,    71,    36,    24,   -79,   -79,   132,   119,    24,
  413.    134,    39,   136,   191,   186,    36,    39,    22,   241,    36,
  414.    207,    91,   -79,    83,   212,   -69,   135,   113,   144,   196,
  415.    142,   143,   150,   145,   146,   147,   148,   149,   137,   -87,
  416.    233,   152,   195,   182,    83,    83,    42,    42,   204,   160,
  417.     48,    49,    50,   192,   -70,    56,    56,    83,    56,    62,
  418.     83,   219,   169,   169,    42,   113,   163,   271,    72,   165,
  419.    113,    83,   124,   125,   216,   193,    92,   162,    39,   232,
  420.    121,    43,    43,   137,   123,   197,   199,   208,   119,   240,
  421.     56,   239,   198,   220,   221,   201,   247,   113,   262,    43,
  422.     93,    94,   243,    93,    94,   246,   126,   127,    88,    89,
  423.     90,   224,   273,    91,   252,   205,   206,   169,   274,   209,
  424.    113,   169,   218,    56,    56,    56,    56,    56,    56,   292,
  425.    307,    66,    69,   267,    65,   289,   308,    68,    42,    42,
  426.    251,   277,   113,    61,     0,     0,     0,   295,   184,    42,
  427.    122,     0,   245,     0,     0,   257,   259,   260,   261,   242,
  428.    263,   264,   265,     0,   119,     0,     0,    56,   269,   173,
  429.    287,     0,     0,    43,    43,   253,   254,   255,     0,     0,
  430.      0,     0,   293,     0,    43,   296,   189,    48,     0,     0,
  431.    151,   300,    86,    87,    88,    89,    90,     0,   279,    91,
  432.      0,   173,     0,     0,    42,   275,    42,   164,     0,    59,
  433.    291,     0,     0,    48,    56,   171,     0,    55,    57,   184,
  434.     60,     0,     0,   190,   210,     0,   113,     0,   113,   286,
  435.      0,     0,   169,     0,     0,     0,     0,     0,     0,    43,
  436.      0,    43,     0,    42,   169,   189,   173,     0,     0,     0,
  437.    113,     0,    60,   113,     0,     0,     0,   113,    42,   113,
  438.    184,   184,   184,   184,     0,   184,   184,   184,   184,     0,
  439.      0,     0,     0,   189,     0,    45,     0,     0,    43,     0,
  440.      0,     0,     0,   249,     0,   153,   154,   155,   156,   157,
  441.    158,     0,    73,    43,   184,   234,   184,   184,   184,   179,
  442.    184,   184,   184,   184,     0,     0,     0,    42,     0,     0,
  443.    183,     0,     0,    42,     0,   184,   184,     0,     0,     0,
  444.    276,     0,   250,     0,     0,     0,     0,     0,   184,   194,
  445.    283,     0,   285,     0,     0,     0,     0,     0,     0,     0,
  446.      0,     0,    43,     0,     0,     0,   288,     0,    43,     0,
  447.    270,     0,     0,   272,   299,     6,     7,   302,     0,     8,
  448.      9,   304,     0,   305,     0,   217,   166,   167,     0,     0,
  449.    179,     0,     0,     0,   280,     0,    60,   185,     0,     0,
  450.      0,   183,     0,     0,     0,     0,     0,    14,    15,    16,
  451.     17,     0,     0,     0,   294,     0,    18,    19,     0,   297,
  452.    298,    53,     0,   301,    22,    54,     0,   303,     0,     0,
  453.      0,   179,   179,   179,   179,     0,   179,   179,   179,   179,
  454.      0,     0,   183,   183,   183,   183,     0,   183,   183,   183,
  455.    183,     0,   213,     0,   214,     0,     0,     0,     0,     0,
  456.      0,     0,     0,     0,     0,   179,     0,   179,   179,   179,
  457.      0,   179,   179,   179,   179,     0,   183,     0,   183,   183,
  458.    183,     0,   183,   183,   183,   183,   179,   179,     0,     0,
  459.      0,   244,     0,     0,     0,     0,     0,   183,   183,   179,
  460.      0,    95,     0,     6,     7,     0,   256,     8,     9,     0,
  461.    183,     0,     0,     0,     0,     0,     0,    96,     0,    97,
  462.     98,    99,   100,   101,   102,   103,   104,   105,   106,   107,
  463.      0,    13,     0,     0,     0,    14,    15,    16,    17,     0,
  464.      0,     0,     0,     0,    18,    19,     0,    20,     0,    21,
  465.      0,     0,    22,    23,     0,   284,     0,    24,   108,    39,
  466.    172,   290,     6,     7,     0,     0,     8,     9,     0,     0,
  467.      0,     0,     0,     0,     0,     0,    96,     0,    97,    98,
  468.     99,   100,   101,   102,   103,   104,   105,   106,   107,     0,
  469.     13,     0,     0,     0,    14,    15,    16,    17,     0,     0,
  470.      0,     0,     0,    18,    19,     0,    20,    95,    21,     6,
  471.      7,    22,    23,     8,     9,     0,    24,   108,    39,     0,
  472.      0,     0,     0,    96,     0,    97,    98,    99,   100,   101,
  473.    102,   103,   104,   105,   106,   107,     0,    13,     0,     0,
  474.      0,    14,    15,    16,    17,     0,     0,     0,     0,     0,
  475.     18,    19,     0,    20,     0,    21,     0,     0,    22,    23,
  476.      0,     0,     0,    24,   175,    39,     6,     7,     0,     0,
  477.      8,     9,     0,   -78,     0,     0,   -78,     0,     0,     0,
  478.      0,     0,     0,     0,     0,     0,     7,     0,     0,     8,
  479.      9,-32768,     0,     0,   176,     0,     0,     0,    14,    15,
  480.     16,    17,     0,     0,     0,   -78,   -78,    18,    19,     0,
  481.     20,     0,   177,     0,     0,    22,   178,    14,    15,     6,
  482.      7,     0,   -78,     8,     9,    74,    18,    19,    75,    20,
  483.      0,   177,     0,     0,    22,    54,     0,     0,     0,     0,
  484.      0,     0,     0,     0,     0,     0,     0,    13,    76,    77,
  485.     78,    14,    15,    16,    17,    79,     0,    80,    81,    82,
  486.     18,    19,     0,    20,     0,    21,     0,     0,    22,    23,
  487.    -61,    67,     0,     6,     7,     0,    83,     8,     9,     0,
  488.      0,     0,     0,     1,     0,    10,    11,     0,     0,     0,
  489.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  490.     12,    13,     0,     0,     0,    14,    15,    16,    17,     0,
  491.      0,     0,     0,     0,    18,    19,     0,    20,     0,    21,
  492.      6,     7,    22,    23,     8,     9,     0,    24,     0,     0,
  493.      0,     0,     0,     0,    96,     0,    97,    98,    99,   100,
  494.    101,   102,   103,   104,   105,   106,   107,     0,    13,     0,
  495.      0,     0,    14,    15,    16,    17,     0,     0,     0,     0,
  496.      0,    18,    19,     0,    20,     0,    21,     0,     0,    22,
  497.     23,     0,     0,     0,    24,     0,    39,     6,     7,     0,
  498.      0,     8,     9,    74,     0,     0,    75,     1,     0,     0,
  499.      0,     0,     0,     0,     0,     0,     0,     7,     0,     0,
  500.      8,     9,     0,     0,     0,    13,    76,    77,    78,    14,
  501.     15,    16,    17,    79,     0,    80,    81,    82,    18,    19,
  502.      0,    20,     0,    21,     0,     0,    22,    23,    14,    15,
  503.      6,     7,     0,    39,     8,     9,    74,    18,    19,    75,
  504.     20,     0,    21,     0,     0,    22,    23,     0,     0,     0,
  505.      0,     0,     7,     0,     0,     8,     9,     0,    13,    76,
  506.     77,    78,    14,    15,    16,    17,    79,     0,    80,    81,
  507.     82,    18,    19,     0,    20,     5,    21,     6,     7,    22,
  508.     23,     8,     9,    14,    15,     0,    39,     0,     0,    10,
  509.     11,     0,    18,    19,     0,    20,     0,   177,     0,     0,
  510.     22,    54,     6,     7,    12,    13,     8,     9,     0,    14,
  511.     15,    16,    17,     0,     0,     0,     0,     0,    18,    19,
  512.      0,    20,     0,    21,     0,     0,    22,    23,     0,     0,
  513.     13,    24,     0,     0,    14,    15,    16,    17,     0,     0,
  514.      0,     0,     0,    18,    19,     0,    20,    63,    21,     6,
  515.      7,    22,    23,     8,     9,     0,     0,     0,    39,     0,
  516.      0,     0,     0,     0,     0,     0,     0,    63,     0,     6,
  517.      7,     0,     0,     8,     9,     0,     0,    13,     0,     0,
  518.      0,    14,    15,    16,    17,     0,     0,     0,     0,     0,
  519.     18,    19,     0,    20,     0,    21,     0,    13,    22,    23,
  520.    -86,    14,    15,    16,    17,     0,     0,     0,     0,     0,
  521.     18,    19,     0,    20,   200,    21,     6,     7,    22,    23,
  522.      8,     9,     0,     0,     0,     0,     0,     0,     0,     0,
  523.      0,     0,     0,   258,     0,     6,     7,     0,     0,     8,
  524.      9,     0,     0,     0,    13,     0,     0,     0,    14,    15,
  525.     16,    17,     0,     0,     0,     0,     0,    18,    19,     0,
  526.     20,     0,    21,   176,     0,    22,    23,    14,    15,    16,
  527.     17,     0,     0,     0,     0,     0,    18,    19,     0,    20,
  528.      0,   177,     6,     7,    22,    54,     8,     9,    74,     0,
  529.      0,    75,     0,     0,     0,     0,     0,     0,     0,     0,
  530.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  531.     13,    76,    77,    78,    14,    15,    16,    17,    79,     0,
  532.     80,    81,    82,    18,    19,     0,    20,     0,    21,     0,
  533.      0,    22,    23,   137,     6,     7,     0,     0,     8,     9,
  534.     74,     0,     0,    75,     0,     0,     0,     0,     0,     0,
  535.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  536.      0,     0,    13,    76,    77,    78,    14,    15,    16,    17,
  537.     79,   203,    80,    81,    82,    18,    19,     0,    20,     0,
  538.     21,     6,     7,    22,    23,     8,     9,    74,     0,     0,
  539.     75,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  540.      0,     0,     0,     0,     0,     0,     0,     0,     0,    13,
  541.     76,    77,    78,    14,    15,    16,    17,    79,     0,    80,
  542.     81,    82,    18,    19,     0,    20,     0,    21,     6,     7,
  543.     22,    23,     8,     9,    74,     0,     0,    75,     0,     0,
  544.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  545.      0,     0,     0,     0,     0,     0,    13,    76,    77,     0,
  546.     14,    15,    16,    17,     0,     0,    80,    81,    82,    18,
  547.     19,     0,    20,     0,    21,     6,     7,    22,    23,     8,
  548.      9,   225,     0,     0,   226,     0,     0,     0,     0,     0,
  549.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  550.      0,     0,     0,   176,   227,   228,   229,    14,    15,    16,
  551.     17,   230,   278,     0,     0,     0,    18,    19,     0,    20,
  552.      0,   177,     6,     7,    22,    54,     8,     9,    74,     0,
  553.      0,    75,     0,     0,     0,     0,     0,     0,     0,     0,
  554.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  555.     13,    76,     0,     0,    14,    15,    16,    17,     0,     0,
  556.     80,    81,    82,    18,    19,     0,    20,     0,    21,     6,
  557.      7,    22,    23,     8,     9,   225,     0,     0,   226,     0,
  558.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  559.      0,     0,     0,     0,     0,     0,     0,   176,   227,   228,
  560.    229,    14,    15,    16,    17,   230,     0,     0,     0,     0,
  561.     18,    19,     0,    20,     0,   177,     6,     7,    22,    54,
  562.      8,     9,   225,     0,     0,   226,     0,     0,     0,     0,
  563.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  564.      0,     0,     0,     0,   176,   227,   228,     0,    14,    15,
  565.     16,    17,     0,     0,     0,     0,     0,    18,    19,     0,
  566.     20,     0,   177,     6,     7,    22,    54,     8,     9,   225,
  567.      0,     0,   226,     0,     0,     0,     0,     0,     0,     0,
  568.      0,     0,     6,     7,     0,     0,     8,     9,     0,     0,
  569.      0,   176,   227,     0,     0,    14,    15,    16,    17,     0,
  570.      0,     0,     0,     0,    18,    19,     0,    20,     0,   177,
  571.     13,     0,    22,    54,    14,    15,    16,    17,     0,     0,
  572.      0,     0,     0,    18,    19,     0,    20,     0,    21,     6,
  573.    211,    22,    23,     8,     9,     0,     0,     0,     0,     0,
  574.      0,     0,     0,     0,     0,     0,     0,     0,     6,     7,
  575.      0,     0,     8,     9,     0,     0,     0,    13,     0,     0,
  576.      0,    14,    15,    16,    17,     0,     0,     0,     0,     0,
  577.     18,    19,     0,    20,     0,    21,   176,     0,    22,    23,
  578.     14,    15,    16,    17,     0,     0,     0,     0,     0,    18,
  579.     19,     0,    20,     0,   177,     6,     7,    22,    54,     8,
  580.      9,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  581.      0,     7,     0,     0,     8,     9,    74,     0,     0,-32768,
  582.      0,     0,     0,     0,     0,     0,     0,    14,    15,    16,
  583.     17,     0,     0,     0,     0,     0,    18,    19,     0,    20,
  584.      0,    53,    14,    15,    22,    54,     0,     0,    80,    81,
  585.     82,    18,    19,     0,    20,     0,    21,     0,     7,    22,
  586.     23,     8,     9,-32768,     0,     0,     0,     0,     0,     0,
  587.      0,     0,     0,     7,     0,     0,     8,     9,   225,     0,
  588.      0,-32768,     0,     0,     0,     0,     0,     0,     0,    14,
  589.     15,     0,     0,     0,     0,-32768,-32768,-32768,    18,    19,
  590.      0,    20,     0,    21,    14,    15,    22,    23,     0,     0,
  591.      0,     0,     0,    18,    19,     0,    20,     0,   177,     0,
  592.      0,    22,    54
  593. };
  594.  
  595. static const short yycheck[] = {     3,
  596.     64,    31,    52,   109,     1,    13,   107,    23,   114,     4,
  597.     13,    71,     1,    10,    32,     4,    13,     1,     3,    23,
  598.      4,    25,    38,    35,    36,     1,     1,    13,    53,    55,
  599.    174,    13,    36,    37,    38,   141,    53,    55,     1,    41,
  600.     25,     1,    27,    28,    57,    42,    43,    53,    52,    57,
  601.     54,    59,     1,   117,   114,    40,    59,    52,   202,    44,
  602.    161,    51,    59,    60,   165,    54,     5,    71,     4,   133,
  603.     74,    75,    31,    77,    78,    79,    80,    81,    54,    54,
  604.    186,    85,   132,   111,    60,    60,    10,    11,   150,    53,
  605.     13,    14,    15,    56,    54,    18,    19,    60,    21,    22,
  606.     60,    10,   106,   107,    28,   109,    53,    56,    28,    53,
  607.    114,    60,     3,     4,   176,    53,    11,     4,    59,    11,
  608.     40,    10,    11,    54,    44,    47,    32,    55,   132,     4,
  609.     53,   195,   136,    42,    43,   139,    21,   141,     4,    28,
  610.     35,    36,   206,    35,    36,   209,    37,    38,    46,    47,
  611.     48,   181,    53,    51,   218,   159,   160,   161,     4,   163,
  612.    164,   165,   178,    86,    87,    88,    89,    90,    91,    18,
  613.      0,    24,    25,   237,   178,   276,     0,    25,   102,   103,
  614.    216,   252,   186,    22,    -1,    -1,    -1,   288,   111,   113,
  615.     43,    -1,   208,    -1,    -1,   223,   224,   225,   226,   203,
  616.    228,   229,   230,    -1,   208,    -1,    -1,   130,   238,   109,
  617.    274,    -1,    -1,   102,   103,   219,   220,   221,    -1,    -1,
  618.     -1,    -1,   286,    -1,   113,   289,   115,   150,    -1,    -1,
  619.     83,   295,    44,    45,    46,    47,    48,    -1,   266,    51,
  620.     -1,   141,    -1,    -1,   168,   249,   170,   100,    -1,    21,
  621.    278,    -1,    -1,   176,   177,   108,    -1,    18,    19,   182,
  622.     21,    -1,    -1,   116,   164,    -1,   270,    -1,   272,   273,
  623.     -1,    -1,   276,    -1,    -1,    -1,    -1,    -1,    -1,   168,
  624.     -1,   170,    -1,   207,   288,   174,   186,    -1,    -1,    -1,
  625.    294,    -1,    53,   297,    -1,    -1,    -1,   301,   222,   303,
  626.    223,   224,   225,   226,    -1,   228,   229,   230,   231,    -1,
  627.     -1,    -1,    -1,   202,    -1,    11,    -1,    -1,   207,    -1,
  628.     -1,    -1,    -1,   212,    -1,    86,    87,    88,    89,    90,
  629.     91,    -1,    28,   222,   257,   188,   259,   260,   261,   111,
  630.    263,   264,   265,   266,    -1,    -1,    -1,   271,    -1,    -1,
  631.    111,    -1,    -1,   277,    -1,   278,   279,    -1,    -1,    -1,
  632.    249,    -1,   215,    -1,    -1,    -1,    -1,    -1,   291,   130,
  633.    270,    -1,   272,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  634.     -1,    -1,   271,    -1,    -1,    -1,   275,    -1,   277,    -1,
  635.    243,    -1,    -1,   246,   294,     3,     4,   297,    -1,     7,
  636.      8,   301,    -1,   303,    -1,   177,   102,   103,    -1,    -1,
  637.    182,    -1,    -1,    -1,   267,    -1,   177,   113,    -1,    -1,
  638.     -1,   182,    -1,    -1,    -1,    -1,    -1,    35,    36,    37,
  639.     38,    -1,    -1,    -1,   287,    -1,    44,    45,    -1,   292,
  640.    293,    49,    -1,   296,    52,    53,    -1,   300,    -1,    -1,
  641.     -1,   223,   224,   225,   226,    -1,   228,   229,   230,   231,
  642.     -1,    -1,   223,   224,   225,   226,    -1,   228,   229,   230,
  643.    231,    -1,   168,    -1,   170,    -1,    -1,    -1,    -1,    -1,
  644.     -1,    -1,    -1,    -1,    -1,   257,    -1,   259,   260,   261,
  645.     -1,   263,   264,   265,   266,    -1,   257,    -1,   259,   260,
  646.    261,    -1,   263,   264,   265,   266,   278,   279,    -1,    -1,
  647.     -1,   207,    -1,    -1,    -1,    -1,    -1,   278,   279,   291,
  648.     -1,     1,    -1,     3,     4,    -1,   222,     7,     8,    -1,
  649.    291,    -1,    -1,    -1,    -1,    -1,    -1,    17,    -1,    19,
  650.     20,    21,    22,    23,    24,    25,    26,    27,    28,    29,
  651.     -1,    31,    -1,    -1,    -1,    35,    36,    37,    38,    -1,
  652.     -1,    -1,    -1,    -1,    44,    45,    -1,    47,    -1,    49,
  653.     -1,    -1,    52,    53,    -1,   271,    -1,    57,    58,    59,
  654.      1,   277,     3,     4,    -1,    -1,     7,     8,    -1,    -1,
  655.     -1,    -1,    -1,    -1,    -1,    -1,    17,    -1,    19,    20,
  656.     21,    22,    23,    24,    25,    26,    27,    28,    29,    -1,
  657.     31,    -1,    -1,    -1,    35,    36,    37,    38,    -1,    -1,
  658.     -1,    -1,    -1,    44,    45,    -1,    47,     1,    49,     3,
  659.      4,    52,    53,     7,     8,    -1,    57,    58,    59,    -1,
  660.     -1,    -1,    -1,    17,    -1,    19,    20,    21,    22,    23,
  661.     24,    25,    26,    27,    28,    29,    -1,    31,    -1,    -1,
  662.     -1,    35,    36,    37,    38,    -1,    -1,    -1,    -1,    -1,
  663.     44,    45,    -1,    47,    -1,    49,    -1,    -1,    52,    53,
  664.     -1,    -1,    -1,    57,     1,    59,     3,     4,    -1,    -1,
  665.      7,     8,    -1,    10,    -1,    -1,    13,    -1,    -1,    -1,
  666.     -1,    -1,    -1,    -1,    -1,    -1,     4,    -1,    -1,     7,
  667.      8,     9,    -1,    -1,    31,    -1,    -1,    -1,    35,    36,
  668.     37,    38,    -1,    -1,    -1,    42,    43,    44,    45,    -1,
  669.     47,    -1,    49,    -1,    -1,    52,    53,    35,    36,     3,
  670.      4,    -1,    59,     7,     8,     9,    44,    45,    12,    47,
  671.     -1,    49,    -1,    -1,    52,    53,    -1,    -1,    -1,    -1,
  672.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,    32,    33,
  673.     34,    35,    36,    37,    38,    39,    -1,    41,    42,    43,
  674.     44,    45,    -1,    47,    -1,    49,    -1,    -1,    52,    53,
  675.      0,     1,    -1,     3,     4,    -1,    60,     7,     8,    -1,
  676.     -1,    -1,    -1,    13,    -1,    15,    16,    -1,    -1,    -1,
  677.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  678.     30,    31,    -1,    -1,    -1,    35,    36,    37,    38,    -1,
  679.     -1,    -1,    -1,    -1,    44,    45,    -1,    47,    -1,    49,
  680.      3,     4,    52,    53,     7,     8,    -1,    57,    -1,    -1,
  681.     -1,    -1,    -1,    -1,    17,    -1,    19,    20,    21,    22,
  682.     23,    24,    25,    26,    27,    28,    29,    -1,    31,    -1,
  683.     -1,    -1,    35,    36,    37,    38,    -1,    -1,    -1,    -1,
  684.     -1,    44,    45,    -1,    47,    -1,    49,    -1,    -1,    52,
  685.     53,    -1,    -1,    -1,    57,    -1,    59,     3,     4,    -1,
  686.     -1,     7,     8,     9,    -1,    -1,    12,    13,    -1,    -1,
  687.     -1,    -1,    -1,    -1,    -1,    -1,    -1,     4,    -1,    -1,
  688.      7,     8,    -1,    -1,    -1,    31,    32,    33,    34,    35,
  689.     36,    37,    38,    39,    -1,    41,    42,    43,    44,    45,
  690.     -1,    47,    -1,    49,    -1,    -1,    52,    53,    35,    36,
  691.      3,     4,    -1,    59,     7,     8,     9,    44,    45,    12,
  692.     47,    -1,    49,    -1,    -1,    52,    53,    -1,    -1,    -1,
  693.     -1,    -1,     4,    -1,    -1,     7,     8,    -1,    31,    32,
  694.     33,    34,    35,    36,    37,    38,    39,    -1,    41,    42,
  695.     43,    44,    45,    -1,    47,     1,    49,     3,     4,    52,
  696.     53,     7,     8,    35,    36,    -1,    59,    -1,    -1,    15,
  697.     16,    -1,    44,    45,    -1,    47,    -1,    49,    -1,    -1,
  698.     52,    53,     3,     4,    30,    31,     7,     8,    -1,    35,
  699.     36,    37,    38,    -1,    -1,    -1,    -1,    -1,    44,    45,
  700.     -1,    47,    -1,    49,    -1,    -1,    52,    53,    -1,    -1,
  701.     31,    57,    -1,    -1,    35,    36,    37,    38,    -1,    -1,
  702.     -1,    -1,    -1,    44,    45,    -1,    47,     1,    49,     3,
  703.      4,    52,    53,     7,     8,    -1,    -1,    -1,    59,    -1,
  704.     -1,    -1,    -1,    -1,    -1,    -1,    -1,     1,    -1,     3,
  705.      4,    -1,    -1,     7,     8,    -1,    -1,    31,    -1,    -1,
  706.     -1,    35,    36,    37,    38,    -1,    -1,    -1,    -1,    -1,
  707.     44,    45,    -1,    47,    -1,    49,    -1,    31,    52,    53,
  708.     54,    35,    36,    37,    38,    -1,    -1,    -1,    -1,    -1,
  709.     44,    45,    -1,    47,     1,    49,     3,     4,    52,    53,
  710.      7,     8,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  711.     -1,    -1,    -1,     1,    -1,     3,     4,    -1,    -1,     7,
  712.      8,    -1,    -1,    -1,    31,    -1,    -1,    -1,    35,    36,
  713.     37,    38,    -1,    -1,    -1,    -1,    -1,    44,    45,    -1,
  714.     47,    -1,    49,    31,    -1,    52,    53,    35,    36,    37,
  715.     38,    -1,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,
  716.     -1,    49,     3,     4,    52,    53,     7,     8,     9,    -1,
  717.     -1,    12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  718.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  719.     31,    32,    33,    34,    35,    36,    37,    38,    39,    -1,
  720.     41,    42,    43,    44,    45,    -1,    47,    -1,    49,    -1,
  721.     -1,    52,    53,    54,     3,     4,    -1,    -1,     7,     8,
  722.      9,    -1,    -1,    12,    -1,    -1,    -1,    -1,    -1,    -1,
  723.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  724.     -1,    -1,    31,    32,    33,    34,    35,    36,    37,    38,
  725.     39,    40,    41,    42,    43,    44,    45,    -1,    47,    -1,
  726.     49,     3,     4,    52,    53,     7,     8,     9,    -1,    -1,
  727.     12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  728.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,
  729.     32,    33,    34,    35,    36,    37,    38,    39,    -1,    41,
  730.     42,    43,    44,    45,    -1,    47,    -1,    49,     3,     4,
  731.     52,    53,     7,     8,     9,    -1,    -1,    12,    -1,    -1,
  732.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  733.     -1,    -1,    -1,    -1,    -1,    -1,    31,    32,    33,    -1,
  734.     35,    36,    37,    38,    -1,    -1,    41,    42,    43,    44,
  735.     45,    -1,    47,    -1,    49,     3,     4,    52,    53,     7,
  736.      8,     9,    -1,    -1,    12,    -1,    -1,    -1,    -1,    -1,
  737.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  738.     -1,    -1,    -1,    31,    32,    33,    34,    35,    36,    37,
  739.     38,    39,    40,    -1,    -1,    -1,    44,    45,    -1,    47,
  740.     -1,    49,     3,     4,    52,    53,     7,     8,     9,    -1,
  741.     -1,    12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  742.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  743.     31,    32,    -1,    -1,    35,    36,    37,    38,    -1,    -1,
  744.     41,    42,    43,    44,    45,    -1,    47,    -1,    49,     3,
  745.      4,    52,    53,     7,     8,     9,    -1,    -1,    12,    -1,
  746.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  747.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,    32,    33,
  748.     34,    35,    36,    37,    38,    39,    -1,    -1,    -1,    -1,
  749.     44,    45,    -1,    47,    -1,    49,     3,     4,    52,    53,
  750.      7,     8,     9,    -1,    -1,    12,    -1,    -1,    -1,    -1,
  751.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  752.     -1,    -1,    -1,    -1,    31,    32,    33,    -1,    35,    36,
  753.     37,    38,    -1,    -1,    -1,    -1,    -1,    44,    45,    -1,
  754.     47,    -1,    49,     3,     4,    52,    53,     7,     8,     9,
  755.     -1,    -1,    12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  756.     -1,    -1,     3,     4,    -1,    -1,     7,     8,    -1,    -1,
  757.     -1,    31,    32,    -1,    -1,    35,    36,    37,    38,    -1,
  758.     -1,    -1,    -1,    -1,    44,    45,    -1,    47,    -1,    49,
  759.     31,    -1,    52,    53,    35,    36,    37,    38,    -1,    -1,
  760.     -1,    -1,    -1,    44,    45,    -1,    47,    -1,    49,     3,
  761.      4,    52,    53,     7,     8,    -1,    -1,    -1,    -1,    -1,
  762.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,     3,     4,
  763.     -1,    -1,     7,     8,    -1,    -1,    -1,    31,    -1,    -1,
  764.     -1,    35,    36,    37,    38,    -1,    -1,    -1,    -1,    -1,
  765.     44,    45,    -1,    47,    -1,    49,    31,    -1,    52,    53,
  766.     35,    36,    37,    38,    -1,    -1,    -1,    -1,    -1,    44,
  767.     45,    -1,    47,    -1,    49,     3,     4,    52,    53,     7,
  768.      8,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  769.     -1,     4,    -1,    -1,     7,     8,     9,    -1,    -1,    12,
  770.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    35,    36,    37,
  771.     38,    -1,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,
  772.     -1,    49,    35,    36,    52,    53,    -1,    -1,    41,    42,
  773.     43,    44,    45,    -1,    47,    -1,    49,    -1,     4,    52,
  774.     53,     7,     8,     9,    -1,    -1,    -1,    -1,    -1,    -1,
  775.     -1,    -1,    -1,     4,    -1,    -1,     7,     8,     9,    -1,
  776.     -1,    12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    35,
  777.     36,    -1,    -1,    -1,    -1,    41,    42,    43,    44,    45,
  778.     -1,    47,    -1,    49,    35,    36,    52,    53,    -1,    -1,
  779.     -1,    -1,    -1,    44,    45,    -1,    47,    -1,    49,    -1,
  780.     -1,    52,    53
  781. };
  782. /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  783. #line 3 "bison.simple"
  784.  
  785. /* Skeleton output parser for bison,
  786.    Copyright (C) 1984, 1989, 1990 Bob Corbett and Richard Stallman
  787.  
  788.    This program is free software; you can redistribute it and/or modify
  789.    it under the terms of the GNU General Public License as published by
  790.    the Free Software Foundation; either version 1, or (at your option)
  791.    any later version.
  792.  
  793.    This program is distributed in the hope that it will be useful,
  794.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  795.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  796.    GNU General Public License for more details.
  797.  
  798.    You should have received a copy of the GNU General Public License
  799.    along with this program; if not, write to the Free Software
  800.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  801.  
  802.  
  803. #ifndef alloca
  804. #ifdef __GNUC__
  805. #define alloca __builtin_alloca
  806. #else /* not GNU C.  */
  807. #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__)
  808. #include <alloca.h>
  809. #else /* not sparc */
  810. #if defined (MSDOS) && !defined (__TURBOC__)
  811. #include <malloc.h>
  812. #else /* not MSDOS, or __TURBOC__ */
  813. #if defined(_AIX)
  814. #include <malloc.h>
  815.  #pragma alloca
  816. #endif /* not _AIX */
  817. #endif /* not MSDOS, or __TURBOC__ */
  818. #endif /* not sparc.  */
  819. #endif /* not GNU C.  */
  820. #endif /* alloca not defined.  */
  821.  
  822. /* This is the parser code that is written into each bison parser
  823.   when the %semantic_parser declaration is not specified in the grammar.
  824.   It was written by Richard Stallman by simplifying the hairy parser
  825.   used when %semantic_parser is specified.  */
  826.  
  827. /* Note: there must be only one dollar sign in this file.
  828.    It is replaced by the list of actions, each action
  829.    as one case of the switch.  */
  830.  
  831. #define yyerrok        (yyerrstatus = 0)
  832. #define yyclearin    (yychar = YYEMPTY)
  833. #define YYEMPTY        -2
  834. #define YYEOF        0
  835. #define YYACCEPT    return(0)
  836. #define YYABORT     return(1)
  837. #define YYERROR        goto yyerrlab1
  838. /* Like YYERROR except do call yyerror.
  839.    This remains here temporarily to ease the
  840.    transition to the new meaning of YYERROR, for GCC.
  841.    Once GCC version 2 has supplanted version 1, this can go.  */
  842. #define YYFAIL        goto yyerrlab
  843. #define YYRECOVERING()  (!!yyerrstatus)
  844. #define YYBACKUP(token, value) \
  845. do                                \
  846.   if (yychar == YYEMPTY && yylen == 1)                \
  847.     { yychar = (token), yylval = (value);            \
  848.       yychar1 = YYTRANSLATE (yychar);                \
  849.       YYPOPSTACK;                        \
  850.       goto yybackup;                        \
  851.     }                                \
  852.   else                                \
  853.     { yyerror ("syntax error: cannot back up"); YYERROR; }    \
  854. while (0)
  855.  
  856. #define YYTERROR    1
  857. #define YYERRCODE    256
  858.  
  859. #ifndef YYPURE
  860. #define YYLEX        yylex()
  861. #endif
  862.  
  863. #ifdef YYPURE
  864. #ifdef YYLSP_NEEDED
  865. #define YYLEX        yylex(&yylval, &yylloc)
  866. #else
  867. #define YYLEX        yylex(&yylval)
  868. #endif
  869. #endif
  870.  
  871. /* If nonreentrant, generate the variables here */
  872.  
  873. #ifndef YYPURE
  874.  
  875. int    yychar;            /*  the lookahead symbol        */
  876. YYSTYPE    yylval;            /*  the semantic value of the        */
  877.                 /*  lookahead symbol            */
  878.  
  879. #ifdef YYLSP_NEEDED
  880. YYLTYPE yylloc;            /*  location data for the lookahead    */
  881.                 /*  symbol                */
  882. #endif
  883.  
  884. int yynerrs;            /*  number of parse errors so far       */
  885. #endif  /* not YYPURE */
  886.  
  887. #if YYDEBUG != 0
  888. int yydebug;            /*  nonzero means print parse trace    */
  889. /* Since this is uninitialized, it does not stop multiple parsers
  890.    from coexisting.  */
  891. #endif
  892.  
  893. /*  YYINITDEPTH indicates the initial size of the parser's stacks    */
  894.  
  895. #ifndef    YYINITDEPTH
  896. #define YYINITDEPTH 200
  897. #endif
  898.  
  899. /*  YYMAXDEPTH is the maximum size the stacks can grow to
  900.     (effective only if the built-in stack extension method is used).  */
  901.  
  902. #if YYMAXDEPTH == 0
  903. #undef YYMAXDEPTH
  904. #endif
  905.  
  906. #ifndef YYMAXDEPTH
  907. #define YYMAXDEPTH 10000
  908. #endif
  909.  
  910. #if __GNUC__ > 1        /* GNU C and GNU C++ define this.  */
  911. #define __yy_bcopy(FROM,TO,COUNT)    __builtin_memcpy(TO,FROM,COUNT)
  912. #else                /* not GNU C or C++ */
  913. #ifndef __cplusplus
  914.  
  915. /* This is the most reliable way to avoid incompatibilities
  916.    in available built-in functions on various systems.  */
  917. static void
  918. __yy_bcopy (from, to, count)
  919.      char *from;
  920.      char *to;
  921.      int count;
  922. {
  923.   register char *f = from;
  924.   register char *t = to;
  925.   register int i = count;
  926.  
  927.   while (i-- > 0)
  928.     *t++ = *f++;
  929. }
  930.  
  931. #else /* __cplusplus */
  932.  
  933. /* This is the most reliable way to avoid incompatibilities
  934.    in available built-in functions on various systems.  */
  935. static void
  936. __yy_bcopy (char *from, char *to, int count)
  937. {
  938.   register char *f = from;
  939.   register char *t = to;
  940.   register int i = count;
  941.  
  942.   while (i-- > 0)
  943.     *t++ = *f++;
  944. }
  945.  
  946. #endif
  947. #endif
  948.  
  949. #line 169 "bison.simple"
  950. int
  951. yyparse()
  952. {
  953.   register int yystate;
  954.   register int yyn;
  955.   register short *yyssp;
  956.   register YYSTYPE *yyvsp;
  957.   int yyerrstatus;    /*  number of tokens to shift before error messages enabled */
  958.   int yychar1;        /*  lookahead token as an internal (translated) token number */
  959.  
  960.   short    yyssa[YYINITDEPTH];    /*  the state stack            */
  961.   YYSTYPE yyvsa[YYINITDEPTH];    /*  the semantic value stack        */
  962.  
  963.   short *yyss = yyssa;        /*  refer to the stacks thru separate pointers */
  964.   YYSTYPE *yyvs = yyvsa;    /*  to allow yyoverflow to reallocate them elsewhere */
  965.  
  966. #ifdef YYLSP_NEEDED
  967.   YYLTYPE yylsa[YYINITDEPTH];    /*  the location stack            */
  968.   YYLTYPE *yyls = yylsa;
  969.   YYLTYPE *yylsp;
  970.  
  971. #define YYPOPSTACK   (yyvsp--, yysp--, yylsp--)
  972. #else
  973. #define YYPOPSTACK   (yyvsp--, yysp--)
  974. #endif
  975.  
  976.   int yystacksize = YYINITDEPTH;
  977.  
  978. #ifdef YYPURE
  979.   int yychar;
  980.   YYSTYPE yylval;
  981.   int yynerrs;
  982. #ifdef YYLSP_NEEDED
  983.   YYLTYPE yylloc;
  984. #endif
  985. #endif
  986.  
  987.   YYSTYPE yyval;        /*  the variable used to return        */
  988.                 /*  semantic values from the action    */
  989.                 /*  routines                */
  990.  
  991.   int yylen;
  992.  
  993. #if YYDEBUG != 0
  994.   if (yydebug)
  995.     fprintf(stderr, "Starting parse\n");
  996. #endif
  997.  
  998.   yystate = 0;
  999.   yyerrstatus = 0;
  1000.   yynerrs = 0;
  1001.   yychar = YYEMPTY;        /* Cause a token to be read.  */
  1002.  
  1003.   /* Initialize stack pointers.
  1004.      Waste one element of value and location stack
  1005.      so that they stay on the same level as the state stack.  */
  1006.  
  1007.   yyssp = yyss - 1;
  1008.   yyvsp = yyvs;
  1009. #ifdef YYLSP_NEEDED
  1010.   yylsp = yyls;
  1011. #endif
  1012.  
  1013. /* Push a new state, which is found in  yystate  .  */
  1014. /* In all cases, when you get here, the value and location stacks
  1015.    have just been pushed. so pushing a state here evens the stacks.  */
  1016. yynewstate:
  1017.  
  1018.   *++yyssp = yystate;
  1019.  
  1020.   if (yyssp >= yyss + yystacksize - 1)
  1021.     {
  1022.       /* Give user a chance to reallocate the stack */
  1023.       /* Use copies of these so that the &'s don't force the real ones into memory. */
  1024.       YYSTYPE *yyvs1 = yyvs;
  1025.       short *yyss1 = yyss;
  1026. #ifdef YYLSP_NEEDED
  1027.       YYLTYPE *yyls1 = yyls;
  1028. #endif
  1029.  
  1030.       /* Get the current used size of the three stacks, in elements.  */
  1031.       int size = yyssp - yyss + 1;
  1032.  
  1033. #ifdef yyoverflow
  1034.       /* Each stack pointer address is followed by the size of
  1035.      the data in use in that stack, in bytes.  */
  1036.       yyoverflow("parser stack overflow",
  1037.          &yyss1, size * sizeof (*yyssp),
  1038.          &yyvs1, size * sizeof (*yyvsp),
  1039. #ifdef YYLSP_NEEDED
  1040.          &yyls1, size * sizeof (*yylsp),
  1041. #endif
  1042.          &yystacksize);
  1043.  
  1044.       yyss = yyss1; yyvs = yyvs1;
  1045. #ifdef YYLSP_NEEDED
  1046.       yyls = yyls1;
  1047. #endif
  1048. #else /* no yyoverflow */
  1049.       /* Extend the stack our own way.  */
  1050.       if (yystacksize >= YYMAXDEPTH)
  1051.     {
  1052.       yyerror("parser stack overflow");
  1053.       return 2;
  1054.     }
  1055.       yystacksize *= 2;
  1056.       if (yystacksize > YYMAXDEPTH)
  1057.     yystacksize = YYMAXDEPTH;
  1058.       yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
  1059.       __yy_bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
  1060.       yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
  1061.       __yy_bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
  1062. #ifdef YYLSP_NEEDED
  1063.       yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
  1064.       __yy_bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
  1065. #endif
  1066. #endif /* no yyoverflow */
  1067.  
  1068.       yyssp = yyss + size - 1;
  1069.       yyvsp = yyvs + size - 1;
  1070. #ifdef YYLSP_NEEDED
  1071.       yylsp = yyls + size - 1;
  1072. #endif
  1073.  
  1074. #if YYDEBUG != 0
  1075.       if (yydebug)
  1076.     fprintf(stderr, "Stack size increased to %d\n", yystacksize);
  1077. #endif
  1078.  
  1079.       if (yyssp >= yyss + yystacksize - 1)
  1080.     YYABORT;
  1081.     }
  1082.  
  1083. #if YYDEBUG != 0
  1084.   if (yydebug)
  1085.     fprintf(stderr, "Entering state %d\n", yystate);
  1086. #endif
  1087.  
  1088.  yybackup:
  1089.  
  1090. /* Do appropriate processing given the current state.  */
  1091. /* Read a lookahead token if we need one and don't already have one.  */
  1092. /* yyresume: */
  1093.  
  1094.   /* First try to decide what to do without reference to lookahead token.  */
  1095.  
  1096.   yyn = yypact[yystate];
  1097.   if (yyn == YYFLAG)
  1098.     goto yydefault;
  1099.  
  1100.   /* Not known => get a lookahead token if don't already have one.  */
  1101.  
  1102.   /* yychar is either YYEMPTY or YYEOF
  1103.      or a valid token in external form.  */
  1104.  
  1105.   if (yychar == YYEMPTY)
  1106.     {
  1107. #if YYDEBUG != 0
  1108.       if (yydebug)
  1109.     fprintf(stderr, "Reading a token: ");
  1110. #endif
  1111.       yychar = YYLEX;
  1112.     }
  1113.  
  1114.   /* Convert token to internal form (in yychar1) for indexing tables with */
  1115.  
  1116.   if (yychar <= 0)        /* This means end of input. */
  1117.     {
  1118.       yychar1 = 0;
  1119.       yychar = YYEOF;        /* Don't call YYLEX any more */
  1120.  
  1121. #if YYDEBUG != 0
  1122.       if (yydebug)
  1123.     fprintf(stderr, "Now at end of input.\n");
  1124. #endif
  1125.     }
  1126.   else
  1127.     {
  1128.       yychar1 = YYTRANSLATE(yychar);
  1129.  
  1130. #if YYDEBUG != 0
  1131.       if (yydebug)
  1132.     {
  1133.       fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
  1134.       /* Give the individual parser a way to print the precise meaning
  1135.          of a token, for further debugging info.  */
  1136. #ifdef YYPRINT
  1137.       YYPRINT (stderr, yychar, yylval);
  1138. #endif
  1139.       fprintf (stderr, ")\n");
  1140.     }
  1141. #endif
  1142.     }
  1143.  
  1144.   yyn += yychar1;
  1145.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
  1146.     goto yydefault;
  1147.  
  1148.   yyn = yytable[yyn];
  1149.  
  1150.   /* yyn is what to do for this token type in this state.
  1151.      Negative => reduce, -yyn is rule number.
  1152.      Positive => shift, yyn is new state.
  1153.        New state is final state => don't bother to shift,
  1154.        just return success.
  1155.      0, or most negative number => error.  */
  1156.  
  1157.   if (yyn < 0)
  1158.     {
  1159.       if (yyn == YYFLAG)
  1160.     goto yyerrlab;
  1161.       yyn = -yyn;
  1162.       goto yyreduce;
  1163.     }
  1164.   else if (yyn == 0)
  1165.     goto yyerrlab;
  1166.  
  1167.   if (yyn == YYFINAL)
  1168.     YYACCEPT;
  1169.  
  1170.   /* Shift the lookahead token.  */
  1171.  
  1172. #if YYDEBUG != 0
  1173.   if (yydebug)
  1174.     fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
  1175. #endif
  1176.  
  1177.   /* Discard the token being shifted unless it is eof.  */
  1178.   if (yychar != YYEOF)
  1179.     yychar = YYEMPTY;
  1180.  
  1181.   *++yyvsp = yylval;
  1182. #ifdef YYLSP_NEEDED
  1183.   *++yylsp = yylloc;
  1184. #endif
  1185.  
  1186.   /* count tokens shifted since error; after three, turn off error status.  */
  1187.   if (yyerrstatus) yyerrstatus--;
  1188.  
  1189.   yystate = yyn;
  1190.   goto yynewstate;
  1191.  
  1192. /* Do the default action for the current state.  */
  1193. yydefault:
  1194.  
  1195.   yyn = yydefact[yystate];
  1196.   if (yyn == 0)
  1197.     goto yyerrlab;
  1198.  
  1199. /* Do a reduction.  yyn is the number of a rule to reduce with.  */
  1200. yyreduce:
  1201.   yylen = yyr2[yyn];
  1202.   yyval = yyvsp[1-yylen]; /* implement default value of the action */
  1203.  
  1204. #if YYDEBUG != 0
  1205.   if (yydebug)
  1206.     {
  1207.       int i;
  1208.  
  1209.       fprintf (stderr, "Reducing via rule %d (line %d), ",
  1210.            yyn, yyrline[yyn]);
  1211.  
  1212.       /* Print the symboles being reduced, and their result.  */
  1213.       for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
  1214.     fprintf (stderr, "%s ", yytname[yyrhs[i]]);
  1215.       fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
  1216.     }
  1217. #endif
  1218.  
  1219.  
  1220.   switch (yyn) {
  1221.  
  1222. case 1:
  1223. #line 137 "awk.y"
  1224. { expression_value = yyvsp[-1].nodeval; ;
  1225.     break;}
  1226. case 2:
  1227. #line 142 "awk.y"
  1228. { 
  1229.             if (yyvsp[0].nodeval != NULL)
  1230.                 yyval.nodeval = yyvsp[0].nodeval;
  1231.             else
  1232.                 yyval.nodeval = NULL;
  1233.             yyerrok;
  1234.         ;
  1235.     break;}
  1236. case 3:
  1237. #line 151 "awk.y"
  1238. {
  1239.             if (yyvsp[0].nodeval == NULL)
  1240.                 yyval.nodeval = yyvsp[-1].nodeval;
  1241.             else if (yyvsp[-1].nodeval == NULL)
  1242.                 yyval.nodeval = yyvsp[0].nodeval;
  1243.             else {
  1244.                 if (yyvsp[-1].nodeval->type != Node_rule_list)
  1245.                     yyvsp[-1].nodeval = node(yyvsp[-1].nodeval, Node_rule_list,
  1246.                         (NODE*)NULL);
  1247.                 yyval.nodeval = append_right (yyvsp[-1].nodeval,
  1248.                    node(yyvsp[0].nodeval, Node_rule_list,(NODE *) NULL));
  1249.             }
  1250.             yyerrok;
  1251.         ;
  1252.     break;}
  1253. case 4:
  1254. #line 165 "awk.y"
  1255. { yyval.nodeval = NULL; ;
  1256.     break;}
  1257. case 5:
  1258. #line 166 "awk.y"
  1259. { yyval.nodeval = NULL; ;
  1260.     break;}
  1261. case 6:
  1262. #line 170 "awk.y"
  1263. { io_allowed = 0; ;
  1264.     break;}
  1265. case 7:
  1266. #line 172 "awk.y"
  1267. {
  1268.         if (begin_block) {
  1269.             if (begin_block->type != Node_rule_list)
  1270.                 begin_block = node(begin_block, Node_rule_list,
  1271.                     (NODE *)NULL);
  1272.             (void) append_right (begin_block, node(
  1273.                 node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
  1274.                 Node_rule_list, (NODE *)NULL) );
  1275.         } else
  1276.             begin_block = node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval);
  1277.         yyval.nodeval = NULL;
  1278.         io_allowed = 1;
  1279.         yyerrok;
  1280.       ;
  1281.     break;}
  1282. case 8:
  1283. #line 186 "awk.y"
  1284. { io_allowed = 0; ;
  1285.     break;}
  1286. case 9:
  1287. #line 188 "awk.y"
  1288. {
  1289.         if (end_block) {
  1290.             if (end_block->type != Node_rule_list)
  1291.                 end_block = node(end_block, Node_rule_list,
  1292.                     (NODE *)NULL);
  1293.             (void) append_right (end_block, node(
  1294.                 node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
  1295.                 Node_rule_list, (NODE *)NULL));
  1296.         } else
  1297.             end_block = node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval);
  1298.         yyval.nodeval = NULL;
  1299.         io_allowed = 1;
  1300.         yyerrok;
  1301.       ;
  1302.     break;}
  1303. case 10:
  1304. #line 203 "awk.y"
  1305. {
  1306.         warning("BEGIN blocks must have an action part");
  1307.         errcount++;
  1308.         yyerrok;
  1309.       ;
  1310.     break;}
  1311. case 11:
  1312. #line 209 "awk.y"
  1313. {
  1314.         warning("END blocks must have an action part");
  1315.         errcount++;
  1316.         yyerrok;
  1317.       ;
  1318.     break;}
  1319. case 12:
  1320. #line 215 "awk.y"
  1321. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
  1322.     break;}
  1323. case 13:
  1324. #line 217 "awk.y"
  1325. { yyval.nodeval = node ((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
  1326.     break;}
  1327. case 14:
  1328. #line 219 "awk.y"
  1329. {
  1330.           yyval.nodeval = node (yyvsp[-1].nodeval,
  1331.                  Node_rule_node,
  1332.                  node(node(node(make_number(0.0),
  1333.                         Node_field_spec,
  1334.                         (NODE *) NULL),
  1335.                     Node_expression_list,
  1336.                     (NODE *) NULL),
  1337.                   Node_K_print,
  1338.                   (NODE *) NULL));
  1339.           yyerrok;
  1340.         ;
  1341.     break;}
  1342. case 15:
  1343. #line 232 "awk.y"
  1344. {
  1345.             func_install(yyvsp[-1].nodeval, yyvsp[0].nodeval);
  1346.             yyval.nodeval = NULL;
  1347.             yyerrok;
  1348.         ;
  1349.     break;}
  1350. case 16:
  1351. #line 241 "awk.y"
  1352. { yyval.sval = yyvsp[0].sval; ;
  1353.     break;}
  1354. case 17:
  1355. #line 243 "awk.y"
  1356. { yyval.sval = yyvsp[0].sval; ;
  1357.     break;}
  1358. case 18:
  1359. #line 245 "awk.y"
  1360. {
  1361.         yyerror("%s() is a built-in function, it cannot be redefined",
  1362.             tokstart);
  1363.         errcount++;
  1364.         /* yyerrok; */
  1365.       ;
  1366.     break;}
  1367. case 21:
  1368. #line 260 "awk.y"
  1369. {
  1370.             param_counter = 0;
  1371.         ;
  1372.     break;}
  1373. case 22:
  1374. #line 264 "awk.y"
  1375. {
  1376.             yyval.nodeval = append_right(make_param(yyvsp[-4].sval), yyvsp[-2].nodeval);
  1377.             can_return = 1;
  1378.         ;
  1379.     break;}
  1380. case 23:
  1381. #line 272 "awk.y"
  1382. {
  1383.         yyval.nodeval = yyvsp[-2].nodeval;
  1384.         can_return = 0;
  1385.       ;
  1386.     break;}
  1387. case 24:
  1388. #line 281 "awk.y"
  1389. { yyval.nodeval = yyvsp[0].nodeval; ;
  1390.     break;}
  1391. case 25:
  1392. #line 283 "awk.y"
  1393. { yyval.nodeval = mkrangenode ( node(yyvsp[-2].nodeval, Node_cond_pair, yyvsp[0].nodeval) ); ;
  1394.     break;}
  1395. case 26:
  1396. #line 292 "awk.y"
  1397. { ++want_regexp; ;
  1398.     break;}
  1399. case 27:
  1400. #line 294 "awk.y"
  1401. {
  1402.           NODE *n;
  1403.  
  1404.           getnode(n);
  1405.           n->type = Node_regex;
  1406.           n->re_exp = make_string(yyvsp[-1].sval, strlen(yyvsp[-1].sval));
  1407.           n->re_reg = mk_re_parse(yyvsp[-1].sval, 0);
  1408.           n->re_text = NULL;
  1409.           n->re_flags = CONST;
  1410.           n->re_cnt = 1;
  1411.           yyval.nodeval = n;
  1412.         ;
  1413.     break;}
  1414. case 28:
  1415. #line 310 "awk.y"
  1416. { yyval.nodeval = yyvsp[-3].nodeval ; ;
  1417.     break;}
  1418. case 29:
  1419. #line 312 "awk.y"
  1420. { yyval.nodeval = NULL; ;
  1421.     break;}
  1422. case 30:
  1423. #line 317 "awk.y"
  1424. { yyval.nodeval = yyvsp[0].nodeval; ;
  1425.     break;}
  1426. case 31:
  1427. #line 319 "awk.y"
  1428. {
  1429.             if (yyvsp[-1].nodeval == NULL || yyvsp[-1].nodeval->type != Node_statement_list)
  1430.                 yyvsp[-1].nodeval = node(yyvsp[-1].nodeval, Node_statement_list,(NODE *)NULL);
  1431.                 yyval.nodeval = append_right(yyvsp[-1].nodeval,
  1432.                 node( yyvsp[0].nodeval, Node_statement_list, (NODE *)NULL));
  1433.                 yyerrok;
  1434.         ;
  1435.     break;}
  1436. case 32:
  1437. #line 327 "awk.y"
  1438. { yyval.nodeval = NULL; ;
  1439.     break;}
  1440. case 33:
  1441. #line 329 "awk.y"
  1442. { yyval.nodeval = NULL; ;
  1443.     break;}
  1444. case 36:
  1445. #line 339 "awk.y"
  1446. { yyval.nodeval = NULL; ;
  1447.     break;}
  1448. case 37:
  1449. #line 341 "awk.y"
  1450. { yyval.nodeval = NULL; ;
  1451.     break;}
  1452. case 38:
  1453. #line 343 "awk.y"
  1454. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1455.     break;}
  1456. case 39:
  1457. #line 345 "awk.y"
  1458. { yyval.nodeval = yyvsp[0].nodeval; ;
  1459.     break;}
  1460. case 40:
  1461. #line 347 "awk.y"
  1462. { yyval.nodeval = node (yyvsp[-3].nodeval, Node_K_while, yyvsp[0].nodeval); ;
  1463.     break;}
  1464. case 41:
  1465. #line 349 "awk.y"
  1466. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_K_do, yyvsp[-5].nodeval); ;
  1467.     break;}
  1468. case 42:
  1469. #line 351 "awk.y"
  1470. {
  1471.         yyval.nodeval = node (yyvsp[0].nodeval, Node_K_arrayfor, make_for_loop(variable(yyvsp[-5].sval,1),
  1472.             (NODE *)NULL, variable(yyvsp[-3].sval,1)));
  1473.       ;
  1474.     break;}
  1475. case 43:
  1476. #line 356 "awk.y"
  1477. {
  1478.         yyval.nodeval = node(yyvsp[0].nodeval, Node_K_for, (NODE *)make_for_loop(yyvsp[-7].nodeval, yyvsp[-5].nodeval, yyvsp[-3].nodeval));
  1479.       ;
  1480.     break;}
  1481. case 44:
  1482. #line 360 "awk.y"
  1483. {
  1484.         yyval.nodeval = node (yyvsp[0].nodeval, Node_K_for,
  1485.             (NODE *)make_for_loop(yyvsp[-6].nodeval, (NODE *)NULL, yyvsp[-3].nodeval));
  1486.       ;
  1487.     break;}
  1488. case 45:
  1489. #line 366 "awk.y"
  1490. { yyval.nodeval = node ((NODE *)NULL, Node_K_break, (NODE *)NULL); ;
  1491.     break;}
  1492. case 46:
  1493. #line 369 "awk.y"
  1494. { yyval.nodeval = node ((NODE *)NULL, Node_K_continue, (NODE *)NULL); ;
  1495.     break;}
  1496. case 47:
  1497. #line 371 "awk.y"
  1498. { yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-5].nodetypeval, yyvsp[-1].nodeval); ;
  1499.     break;}
  1500. case 48:
  1501. #line 373 "awk.y"
  1502. {
  1503.             if (yyvsp[-3].nodetypeval == Node_K_print && yyvsp[-2].nodeval == NULL)
  1504.                 yyvsp[-2].nodeval = node(node(make_number(0.0),
  1505.                            Node_field_spec,
  1506.                            (NODE *) NULL),
  1507.                       Node_expression_list,
  1508.                       (NODE *) NULL);
  1509.  
  1510.             yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-3].nodetypeval, yyvsp[-1].nodeval);
  1511.         ;
  1512.     break;}
  1513. case 49:
  1514. #line 384 "awk.y"
  1515. { NODETYPE type;
  1516.  
  1517.           if (! io_allowed) yyerror("next used in BEGIN or END action");
  1518.           if (yyvsp[-1].nodeval && yyvsp[-1].nodeval == lookup("file")) {
  1519.             if (do_lint)
  1520.                 warning("`next file' is a gawk extension");
  1521.             else if (strict || do_posix)
  1522.                 yyerror("`next file' is a gawk extension");
  1523.             type = Node_K_nextfile;
  1524.           } else type = Node_K_next;
  1525.           yyval.nodeval = node ((NODE *)NULL, type, (NODE *)NULL);
  1526.         ;
  1527.     break;}
  1528. case 50:
  1529. #line 397 "awk.y"
  1530. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_exit, (NODE *)NULL); ;
  1531.     break;}
  1532. case 51:
  1533. #line 399 "awk.y"
  1534. { if (! can_return) yyerror("return used outside function context"); ;
  1535.     break;}
  1536. case 52:
  1537. #line 401 "awk.y"
  1538. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_return, (NODE *)NULL); ;
  1539.     break;}
  1540. case 53:
  1541. #line 403 "awk.y"
  1542. { yyval.nodeval = node (variable(yyvsp[-4].sval,1), Node_K_delete, yyvsp[-2].nodeval); ;
  1543.     break;}
  1544. case 54:
  1545. #line 405 "awk.y"
  1546. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1547.     break;}
  1548. case 55:
  1549. #line 410 "awk.y"
  1550. { yyval.nodetypeval = yyvsp[0].nodetypeval; ;
  1551.     break;}
  1552. case 56:
  1553. #line 412 "awk.y"
  1554. { yyval.nodetypeval = yyvsp[0].nodetypeval; ;
  1555.     break;}
  1556. case 57:
  1557. #line 417 "awk.y"
  1558. {
  1559.         yyval.nodeval = node(yyvsp[-3].nodeval, Node_K_if, 
  1560.             node(yyvsp[0].nodeval, Node_if_branches, (NODE *)NULL));
  1561.       ;
  1562.     break;}
  1563. case 58:
  1564. #line 423 "awk.y"
  1565. { yyval.nodeval = node (yyvsp[-6].nodeval, Node_K_if,
  1566.                 node (yyvsp[-3].nodeval, Node_if_branches, yyvsp[0].nodeval)); ;
  1567.     break;}
  1568. case 59:
  1569. #line 429 "awk.y"
  1570. { want_assign = 0; ;
  1571.     break;}
  1572. case 63:
  1573. #line 440 "awk.y"
  1574. { yyval.nodeval = NULL; ;
  1575.     break;}
  1576. case 64:
  1577. #line 442 "awk.y"
  1578. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_input, (NODE *)NULL); ;
  1579.     break;}
  1580. case 65:
  1581. #line 447 "awk.y"
  1582. { yyval.nodeval = NULL; ;
  1583.     break;}
  1584. case 66:
  1585. #line 449 "awk.y"
  1586. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_output, (NODE *)NULL); ;
  1587.     break;}
  1588. case 67:
  1589. #line 451 "awk.y"
  1590. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_append, (NODE *)NULL); ;
  1591.     break;}
  1592. case 68:
  1593. #line 453 "awk.y"
  1594. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_pipe, (NODE *)NULL); ;
  1595.     break;}
  1596. case 69:
  1597. #line 458 "awk.y"
  1598. { yyval.nodeval = NULL; ;
  1599.     break;}
  1600. case 70:
  1601. #line 460 "awk.y"
  1602. { yyval.nodeval = yyvsp[0].nodeval; ;
  1603.     break;}
  1604. case 71:
  1605. #line 465 "awk.y"
  1606. { yyval.nodeval = make_param(yyvsp[0].sval); ;
  1607.     break;}
  1608. case 72:
  1609. #line 467 "awk.y"
  1610. { yyval.nodeval = append_right(yyvsp[-2].nodeval, make_param(yyvsp[0].sval)); yyerrok; ;
  1611.     break;}
  1612. case 73:
  1613. #line 469 "awk.y"
  1614. { yyval.nodeval = NULL; ;
  1615.     break;}
  1616. case 74:
  1617. #line 471 "awk.y"
  1618. { yyval.nodeval = NULL; ;
  1619.     break;}
  1620. case 75:
  1621. #line 473 "awk.y"
  1622. { yyval.nodeval = NULL; ;
  1623.     break;}
  1624. case 76:
  1625. #line 479 "awk.y"
  1626. { yyval.nodeval = NULL; ;
  1627.     break;}
  1628. case 77:
  1629. #line 481 "awk.y"
  1630. { yyval.nodeval = yyvsp[0].nodeval; ;
  1631.     break;}
  1632. case 78:
  1633. #line 486 "awk.y"
  1634. { yyval.nodeval = NULL; ;
  1635.     break;}
  1636. case 79:
  1637. #line 488 "awk.y"
  1638. { yyval.nodeval = yyvsp[0].nodeval; ;
  1639.     break;}
  1640. case 80:
  1641. #line 493 "awk.y"
  1642. { yyval.nodeval = node (yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL); ;
  1643.     break;}
  1644. case 81:
  1645. #line 495 "awk.y"
  1646. {
  1647.         yyval.nodeval = append_right(yyvsp[-2].nodeval,
  1648.             node( yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL));
  1649.         yyerrok;
  1650.       ;
  1651.     break;}
  1652. case 82:
  1653. #line 501 "awk.y"
  1654. { yyval.nodeval = NULL; ;
  1655.     break;}
  1656. case 83:
  1657. #line 503 "awk.y"
  1658. { yyval.nodeval = NULL; ;
  1659.     break;}
  1660. case 84:
  1661. #line 505 "awk.y"
  1662. { yyval.nodeval = NULL; ;
  1663.     break;}
  1664. case 85:
  1665. #line 507 "awk.y"
  1666. { yyval.nodeval = NULL; ;
  1667.     break;}
  1668. case 86:
  1669. #line 512 "awk.y"
  1670. { yyval.nodeval = NULL; ;
  1671.     break;}
  1672. case 87:
  1673. #line 514 "awk.y"
  1674. { yyval.nodeval = yyvsp[0].nodeval; ;
  1675.     break;}
  1676. case 88:
  1677. #line 519 "awk.y"
  1678. { yyval.nodeval = node (yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL); ;
  1679.     break;}
  1680. case 89:
  1681. #line 521 "awk.y"
  1682. {
  1683.             yyval.nodeval = append_right(yyvsp[-2].nodeval,
  1684.                 node( yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL));
  1685.             yyerrok;
  1686.         ;
  1687.     break;}
  1688. case 90:
  1689. #line 527 "awk.y"
  1690. { yyval.nodeval = NULL; ;
  1691.     break;}
  1692. case 91:
  1693. #line 529 "awk.y"
  1694. { yyval.nodeval = NULL; ;
  1695.     break;}
  1696. case 92:
  1697. #line 531 "awk.y"
  1698. { yyval.nodeval = NULL; ;
  1699.     break;}
  1700. case 93:
  1701. #line 533 "awk.y"
  1702. { yyval.nodeval = NULL; ;
  1703.     break;}
  1704. case 94:
  1705. #line 538 "awk.y"
  1706. { want_assign = 0; ;
  1707.     break;}
  1708. case 95:
  1709. #line 540 "awk.y"
  1710. {
  1711.           if (do_lint && yyvsp[0].nodeval->type == Node_regex)
  1712.             warning("Regular expression on left of assignment.");
  1713.           yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-2].nodetypeval, yyvsp[0].nodeval);
  1714.         ;
  1715.     break;}
  1716. case 96:
  1717. #line 546 "awk.y"
  1718. { yyval.nodeval = node (variable(yyvsp[0].sval,1), Node_in_array, yyvsp[-3].nodeval); ;
  1719.     break;}
  1720. case 97:
  1721. #line 548 "awk.y"
  1722. {
  1723.           yyval.nodeval = node (yyvsp[0].nodeval, Node_K_getline,
  1724.              node (yyvsp[-3].nodeval, Node_redirect_pipein, (NODE *)NULL));
  1725.         ;
  1726.     break;}
  1727. case 98:
  1728. #line 553 "awk.y"
  1729. {
  1730.           if (do_lint && ! io_allowed && yyvsp[0].nodeval == NULL)
  1731.             warning("non-redirected getline undefined inside BEGIN or END action");
  1732.           yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
  1733.         ;
  1734.     break;}
  1735. case 99:
  1736. #line 559 "awk.y"
  1737. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
  1738.     break;}
  1739. case 100:
  1740. #line 561 "awk.y"
  1741. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
  1742.     break;}
  1743. case 101:
  1744. #line 563 "awk.y"
  1745. {
  1746.           if (yyvsp[-2].nodeval->type == Node_regex)
  1747.             warning("Regular expression on left of MATCH operator.");
  1748.           yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, mk_rexp(yyvsp[0].nodeval));
  1749.         ;
  1750.     break;}
  1751. case 102:
  1752. #line 569 "awk.y"
  1753. { yyval.nodeval = yyvsp[0].nodeval; ;
  1754.     break;}
  1755. case 103:
  1756. #line 571 "awk.y"
  1757. {
  1758.           yyval.nodeval = node(node(make_number(0.0),
  1759.                  Node_field_spec,
  1760.                  (NODE *) NULL),
  1761.                     Node_nomatch,
  1762.                 yyvsp[0].nodeval);
  1763.         ;
  1764.     break;}
  1765. case 104:
  1766. #line 579 "awk.y"
  1767. { yyval.nodeval = node (variable(yyvsp[0].sval,1), Node_in_array, yyvsp[-2].nodeval); ;
  1768.     break;}
  1769. case 105:
  1770. #line 581 "awk.y"
  1771. {
  1772.           if (do_lint && yyvsp[0].nodeval->type == Node_regex)
  1773.             warning("Regular expression on left of comparison.");
  1774.           yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval);
  1775.         ;
  1776.     break;}
  1777. case 106:
  1778. #line 587 "awk.y"
  1779. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_less, yyvsp[0].nodeval); ;
  1780.     break;}
  1781. case 107:
  1782. #line 589 "awk.y"
  1783. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_greater, yyvsp[0].nodeval); ;
  1784.     break;}
  1785. case 108:
  1786. #line 591 "awk.y"
  1787. { yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
  1788.     break;}
  1789. case 109:
  1790. #line 593 "awk.y"
  1791. { yyval.nodeval = yyvsp[0].nodeval; ;
  1792.     break;}
  1793. case 110:
  1794. #line 595 "awk.y"
  1795. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
  1796.     break;}
  1797. case 111:
  1798. #line 600 "awk.y"
  1799. { want_assign = 0; ;
  1800.     break;}
  1801. case 112:
  1802. #line 602 "awk.y"
  1803. { yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-2].nodetypeval, yyvsp[0].nodeval); ;
  1804.     break;}
  1805. case 113:
  1806. #line 604 "awk.y"
  1807. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
  1808.     break;}
  1809. case 114:
  1810. #line 606 "awk.y"
  1811. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
  1812.     break;}
  1813. case 115:
  1814. #line 608 "awk.y"
  1815. {
  1816.           if (do_lint && ! io_allowed && yyvsp[0].nodeval == NULL)
  1817.             warning("non-redirected getline undefined inside BEGIN or END action");
  1818.           yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
  1819.         ;
  1820.     break;}
  1821. case 116:
  1822. #line 614 "awk.y"
  1823. { yyval.nodeval = yyvsp[0].nodeval; ;
  1824.     break;}
  1825. case 117:
  1826. #line 616 "awk.y"
  1827. { yyval.nodeval = node((NODE *) NULL, Node_nomatch, yyvsp[0].nodeval); ;
  1828.     break;}
  1829. case 118:
  1830. #line 618 "awk.y"
  1831. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, mk_rexp(yyvsp[0].nodeval)); ;
  1832.     break;}
  1833. case 119:
  1834. #line 620 "awk.y"
  1835. { yyval.nodeval = node (variable(yyvsp[0].sval,1), Node_in_array, yyvsp[-2].nodeval); ;
  1836.     break;}
  1837. case 120:
  1838. #line 622 "awk.y"
  1839. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1840.     break;}
  1841. case 121:
  1842. #line 624 "awk.y"
  1843. { yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
  1844.     break;}
  1845. case 122:
  1846. #line 626 "awk.y"
  1847. { yyval.nodeval = yyvsp[0].nodeval; ;
  1848.     break;}
  1849. case 123:
  1850. #line 628 "awk.y"
  1851. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
  1852.     break;}
  1853. case 126:
  1854. #line 636 "awk.y"
  1855. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_exp, yyvsp[0].nodeval); ;
  1856.     break;}
  1857. case 127:
  1858. #line 638 "awk.y"
  1859. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_times, yyvsp[0].nodeval); ;
  1860.     break;}
  1861. case 128:
  1862. #line 640 "awk.y"
  1863. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_quotient, yyvsp[0].nodeval); ;
  1864.     break;}
  1865. case 129:
  1866. #line 642 "awk.y"
  1867. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_mod, yyvsp[0].nodeval); ;
  1868.     break;}
  1869. case 130:
  1870. #line 644 "awk.y"
  1871. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_plus, yyvsp[0].nodeval); ;
  1872.     break;}
  1873. case 131:
  1874. #line 646 "awk.y"
  1875. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_minus, yyvsp[0].nodeval); ;
  1876.     break;}
  1877. case 132:
  1878. #line 651 "awk.y"
  1879. { yyval.nodeval = node (yyvsp[0].nodeval, Node_not,(NODE *) NULL); ;
  1880.     break;}
  1881. case 133:
  1882. #line 653 "awk.y"
  1883. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1884.     break;}
  1885. case 134:
  1886. #line 655 "awk.y"
  1887. { 
  1888.         if (! io_allowed && strcmp(tokstart, "nextfile") == 0)
  1889.             yyerror("nextfile() is illegal in BEGIN and END");
  1890.         ;
  1891.     break;}
  1892. case 135:
  1893. #line 660 "awk.y"
  1894. { yyval.nodeval = snode (yyvsp[-1].nodeval, Node_builtin, (int) yyvsp[-4].lval); ;
  1895.     break;}
  1896. case 136:
  1897. #line 662 "awk.y"
  1898. { yyval.nodeval = snode (yyvsp[-1].nodeval, Node_builtin, (int) yyvsp[-3].lval); ;
  1899.     break;}
  1900. case 137:
  1901. #line 664 "awk.y"
  1902. {
  1903.         if (do_lint)
  1904.             warning("call of `length' without parentheses is not portable");
  1905.         yyval.nodeval = snode ((NODE *)NULL, Node_builtin, (int) yyvsp[0].lval);
  1906.         if (do_posix)
  1907.             warning( "call of `length' without parentheses is deprecated by POSIX");
  1908.       ;
  1909.     break;}
  1910. case 138:
  1911. #line 672 "awk.y"
  1912. {
  1913.         yyval.nodeval = node (yyvsp[-1].nodeval, Node_func_call, make_string(yyvsp[-3].sval, strlen(yyvsp[-3].sval)));
  1914.       ;
  1915.     break;}
  1916. case 139:
  1917. #line 676 "awk.y"
  1918. { yyval.nodeval = node (yyvsp[0].nodeval, Node_preincrement, (NODE *)NULL); ;
  1919.     break;}
  1920. case 140:
  1921. #line 678 "awk.y"
  1922. { yyval.nodeval = node (yyvsp[0].nodeval, Node_predecrement, (NODE *)NULL); ;
  1923.     break;}
  1924. case 141:
  1925. #line 680 "awk.y"
  1926. { yyval.nodeval = yyvsp[0].nodeval; ;
  1927.     break;}
  1928. case 142:
  1929. #line 682 "awk.y"
  1930. { yyval.nodeval = yyvsp[0].nodeval; ;
  1931.     break;}
  1932. case 143:
  1933. #line 685 "awk.y"
  1934. { if (yyvsp[0].nodeval->type == Node_val) {
  1935.             yyvsp[0].nodeval->numbr = -(force_number(yyvsp[0].nodeval));
  1936.             yyval.nodeval = yyvsp[0].nodeval;
  1937.           } else
  1938.             yyval.nodeval = node (yyvsp[0].nodeval, Node_unary_minus, (NODE *)NULL);
  1939.         ;
  1940.     break;}
  1941. case 144:
  1942. #line 692 "awk.y"
  1943. { yyval.nodeval = yyvsp[0].nodeval; ;
  1944.     break;}
  1945. case 145:
  1946. #line 697 "awk.y"
  1947. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_postincrement, (NODE *)NULL); ;
  1948.     break;}
  1949. case 146:
  1950. #line 699 "awk.y"
  1951. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_postdecrement, (NODE *)NULL); ;
  1952.     break;}
  1953. case 148:
  1954. #line 705 "awk.y"
  1955. { yyval.nodeval = NULL; ;
  1956.     break;}
  1957. case 149:
  1958. #line 707 "awk.y"
  1959. { yyval.nodeval = yyvsp[0].nodeval; ;
  1960.     break;}
  1961. case 150:
  1962. #line 712 "awk.y"
  1963. { yyval.nodeval = variable(yyvsp[0].sval,1); ;
  1964.     break;}
  1965. case 151:
  1966. #line 714 "awk.y"
  1967. {
  1968.         if (yyvsp[-1].nodeval->rnode == NULL) {
  1969.             yyval.nodeval = node (variable(yyvsp[-3].sval,1), Node_subscript, yyvsp[-1].nodeval->lnode);
  1970.             freenode(yyvsp[-1].nodeval);
  1971.         } else
  1972.             yyval.nodeval = node (variable(yyvsp[-3].sval,1), Node_subscript, yyvsp[-1].nodeval);
  1973.         ;
  1974.     break;}
  1975. case 152:
  1976. #line 722 "awk.y"
  1977. { yyval.nodeval = node (yyvsp[0].nodeval, Node_field_spec, (NODE *)NULL); ;
  1978.     break;}
  1979. case 153:
  1980. #line 724 "awk.y"
  1981. { yyval.nodeval = node (yyvsp[0].nodeval, Node_field_spec, (NODE *)NULL); ;
  1982.     break;}
  1983. case 155:
  1984. #line 732 "awk.y"
  1985. { yyerrok; ;
  1986.     break;}
  1987. case 156:
  1988. #line 736 "awk.y"
  1989. { yyerrok; ;
  1990.     break;}
  1991. case 159:
  1992. #line 745 "awk.y"
  1993. { yyerrok; want_assign = 0; ;
  1994.     break;}
  1995. case 160:
  1996. #line 748 "awk.y"
  1997. { yyerrok; ;
  1998.     break;}
  1999. }
  2000.    /* the action file gets copied in in place of this dollarsign */
  2001. #line 440 "bison.simple"
  2002.  
  2003.   yyvsp -= yylen;
  2004.   yyssp -= yylen;
  2005. #ifdef YYLSP_NEEDED
  2006.   yylsp -= yylen;
  2007. #endif
  2008.  
  2009. #if YYDEBUG != 0
  2010.   if (yydebug)
  2011.     {
  2012.       short *ssp1 = yyss - 1;
  2013.       fprintf (stderr, "state stack now");
  2014.       while (ssp1 != yyssp)
  2015.     fprintf (stderr, " %d", *++ssp1);
  2016.       fprintf (stderr, "\n");
  2017.     }
  2018. #endif
  2019.  
  2020.   *++yyvsp = yyval;
  2021.  
  2022. #ifdef YYLSP_NEEDED
  2023.   yylsp++;
  2024.   if (yylen == 0)
  2025.     {
  2026.       yylsp->first_line = yylloc.first_line;
  2027.       yylsp->first_column = yylloc.first_column;
  2028.       yylsp->last_line = (yylsp-1)->last_line;
  2029.       yylsp->last_column = (yylsp-1)->last_column;
  2030.       yylsp->text = 0;
  2031.     }
  2032.   else
  2033.     {
  2034.       yylsp->last_line = (yylsp+yylen-1)->last_line;
  2035.       yylsp->last_column = (yylsp+yylen-1)->last_column;
  2036.     }
  2037. #endif
  2038.  
  2039.   /* Now "shift" the result of the reduction.
  2040.      Determine what state that goes to,
  2041.      based on the state we popped back to
  2042.      and the rule number reduced by.  */
  2043.  
  2044.   yyn = yyr1[yyn];
  2045.  
  2046.   yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
  2047.   if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
  2048.     yystate = yytable[yystate];
  2049.   else
  2050.     yystate = yydefgoto[yyn - YYNTBASE];
  2051.  
  2052.   goto yynewstate;
  2053.  
  2054. yyerrlab:   /* here on detecting error */
  2055.  
  2056.   if (! yyerrstatus)
  2057.     /* If not already recovering from an error, report this error.  */
  2058.     {
  2059.       ++yynerrs;
  2060.  
  2061. #ifdef YYERROR_VERBOSE
  2062.       yyn = yypact[yystate];
  2063.  
  2064.       if (yyn > YYFLAG && yyn < YYLAST)
  2065.     {
  2066.       int size = 0;
  2067.       char *msg;
  2068.       int x, count;
  2069.  
  2070.       count = 0;
  2071.       for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  2072.         if (yycheck[x + yyn] == x)
  2073.           size += strlen(yytname[x]) + 15, count++;
  2074.       msg = (char *) xmalloc(size + 15);
  2075.       strcpy(msg, "parse error");
  2076.  
  2077.       if (count < 5)
  2078.         {
  2079.           count = 0;
  2080.           for (x = 0; x < (sizeof(yytname) / sizeof(char *)); x++)
  2081.         if (yycheck[x + yyn] == x)
  2082.           {
  2083.             strcat(msg, count == 0 ? ", expecting `" : " or `");
  2084.             strcat(msg, yytname[x]);
  2085.             strcat(msg, "'");
  2086.             count++;
  2087.           }
  2088.         }
  2089.       yyerror(msg);
  2090.       free(msg);
  2091.     }
  2092.       else
  2093. #endif /* YYERROR_VERBOSE */
  2094.     yyerror("parse error");
  2095.     }
  2096.  
  2097. yyerrlab1:   /* here on error raised explicitly by an action */
  2098.  
  2099.   if (yyerrstatus == 3)
  2100.     {
  2101.       /* if just tried and failed to reuse lookahead token after an error, discard it.  */
  2102.  
  2103.       /* return failure if at end of input */
  2104.       if (yychar == YYEOF)
  2105.     YYABORT;
  2106.  
  2107. #if YYDEBUG != 0
  2108.       if (yydebug)
  2109.     fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
  2110. #endif
  2111.  
  2112.       yychar = YYEMPTY;
  2113.     }
  2114.  
  2115.   /* Else will try to reuse lookahead token
  2116.      after shifting the error token.  */
  2117.  
  2118.   yyerrstatus = 3;        /* Each real token shifted decrements this */
  2119.  
  2120.   goto yyerrhandle;
  2121.  
  2122. yyerrdefault:  /* current state does not do anything special for the error token. */
  2123.  
  2124. #if 0
  2125.   /* This is wrong; only states that explicitly want error tokens
  2126.      should shift them.  */
  2127.   yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
  2128.   if (yyn) goto yydefault;
  2129. #endif
  2130.  
  2131. yyerrpop:   /* pop the current state because it cannot handle the error token */
  2132.  
  2133.   if (yyssp == yyss) YYABORT;
  2134.   yyvsp--;
  2135.   yystate = *--yyssp;
  2136. #ifdef YYLSP_NEEDED
  2137.   yylsp--;
  2138. #endif
  2139.  
  2140. #if YYDEBUG != 0
  2141.   if (yydebug)
  2142.     {
  2143.       short *ssp1 = yyss - 1;
  2144.       fprintf (stderr, "Error: state stack now");
  2145.       while (ssp1 != yyssp)
  2146.     fprintf (stderr, " %d", *++ssp1);
  2147.       fprintf (stderr, "\n");
  2148.     }
  2149. #endif
  2150.  
  2151. yyerrhandle:
  2152.  
  2153.   yyn = yypact[yystate];
  2154.   if (yyn == YYFLAG)
  2155.     goto yyerrdefault;
  2156.  
  2157.   yyn += YYTERROR;
  2158.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
  2159.     goto yyerrdefault;
  2160.  
  2161.   yyn = yytable[yyn];
  2162.   if (yyn < 0)
  2163.     {
  2164.       if (yyn == YYFLAG)
  2165.     goto yyerrpop;
  2166.       yyn = -yyn;
  2167.       goto yyreduce;
  2168.     }
  2169.   else if (yyn == 0)
  2170.     goto yyerrpop;
  2171.  
  2172.   if (yyn == YYFINAL)
  2173.     YYACCEPT;
  2174.  
  2175. #if YYDEBUG != 0
  2176.   if (yydebug)
  2177.     fprintf(stderr, "Shifting error token, ");
  2178. #endif
  2179.  
  2180.   *++yyvsp = yylval;
  2181. #ifdef YYLSP_NEEDED
  2182.   *++yylsp = yylloc;
  2183. #endif
  2184.  
  2185.   yystate = yyn;
  2186.   goto yynewstate;
  2187. }
  2188. #line 751 "awk.y"
  2189.  
  2190.  
  2191. struct token {
  2192.     char *operator;        /* text to match */
  2193.     NODETYPE value;        /* node type */
  2194.     int class;        /* lexical class */
  2195.     unsigned flags;        /* # of args. allowed and compatability */
  2196. #    define    ARGS    0xFF    /* 0, 1, 2, 3 args allowed (any combination */
  2197. #    define    A(n)    (1<<(n))
  2198. #    define    VERSION    0xFF00    /* old awk is zero */
  2199. #    define    NOT_OLD        0x0100    /* feature not in old awk */
  2200. #    define    NOT_POSIX    0x0200    /* feature not in POSIX */
  2201. #    define    GAWKX        0x0400    /* gawk extension */
  2202.     NODE *(*ptr) ();    /* function that implements this keyword */
  2203. };
  2204.  
  2205. extern NODE
  2206.     *do_exp(),    *do_getline(),    *do_index(),    *do_length(),
  2207.     *do_sqrt(),    *do_log(),    *do_sprintf(),    *do_substr(),
  2208.     *do_split(),    *do_system(),    *do_int(),    *do_close(),
  2209.     *do_atan2(),    *do_sin(),    *do_cos(),    *do_rand(),
  2210.     *do_srand(),    *do_match(),    *do_tolower(),    *do_toupper(),
  2211.     *do_sub(),    *do_gsub(),    *do_strftime(),    *do_systime();
  2212.  
  2213. /* Tokentab is sorted ascii ascending order, so it can be binary searched. */
  2214.  
  2215. static struct token tokentab[] = {
  2216. {"BEGIN",    Node_illegal,     LEX_BEGIN,    0,        0},
  2217. {"END",        Node_illegal,     LEX_END,    0,        0},
  2218. {"atan2",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(2),    do_atan2},
  2219. {"break",    Node_K_break,     LEX_BREAK,    0,        0},
  2220. {"close",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(1),    do_close},
  2221. {"continue",    Node_K_continue, LEX_CONTINUE,    0,        0},
  2222. {"cos",        Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(1),    do_cos},
  2223. {"delete",    Node_K_delete,     LEX_DELETE,    NOT_OLD,    0},
  2224. {"do",        Node_K_do,     LEX_DO,    NOT_OLD,    0},
  2225. {"else",    Node_illegal,     LEX_ELSE,    0,        0},
  2226. {"exit",    Node_K_exit,     LEX_EXIT,    0,        0},
  2227. {"exp",        Node_builtin,     LEX_BUILTIN,    A(1),        do_exp},
  2228. {"for",        Node_K_for,     LEX_FOR,    0,        0},
  2229. {"func",    Node_K_function, LEX_FUNCTION,    NOT_POSIX|NOT_OLD,    0},
  2230. {"function",    Node_K_function, LEX_FUNCTION,    NOT_OLD,    0},
  2231. {"getline",    Node_K_getline,     LEX_GETLINE,    NOT_OLD,    0},
  2232. {"gsub",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(2)|A(3), do_gsub},
  2233. {"if",        Node_K_if,     LEX_IF,    0,        0},
  2234. {"in",        Node_illegal,     LEX_IN,    0,        0},
  2235. {"index",    Node_builtin,     LEX_BUILTIN,    A(2),        do_index},
  2236. {"int",        Node_builtin,     LEX_BUILTIN,    A(1),        do_int},
  2237. {"length",    Node_builtin,     LEX_LENGTH,    A(0)|A(1),    do_length},
  2238. {"log",        Node_builtin,     LEX_BUILTIN,    A(1),        do_log},
  2239. {"match",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(2),    do_match},
  2240. {"next",    Node_K_next,     LEX_NEXT,    0,        0},
  2241. {"print",    Node_K_print,     LEX_PRINT,    0,        0},
  2242. {"printf",    Node_K_printf,     LEX_PRINTF,    0,        0},
  2243. {"rand",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(0),    do_rand},
  2244. {"return",    Node_K_return,     LEX_RETURN,    NOT_OLD,    0},
  2245. {"sin",        Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(1),    do_sin},
  2246. {"split",    Node_builtin,     LEX_BUILTIN,    A(2)|A(3),    do_split},
  2247. {"sprintf",    Node_builtin,     LEX_BUILTIN,    0,        do_sprintf},
  2248. {"sqrt",    Node_builtin,     LEX_BUILTIN,    A(1),        do_sqrt},
  2249. {"srand",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(0)|A(1), do_srand},
  2250. {"strftime",    Node_builtin,     LEX_BUILTIN,    GAWKX|A(1)|A(2), do_strftime},
  2251. {"sub",        Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(2)|A(3), do_sub},
  2252. {"substr",    Node_builtin,     LEX_BUILTIN,    A(2)|A(3),    do_substr},
  2253. {"system",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(1),    do_system},
  2254. {"systime",    Node_builtin,     LEX_BUILTIN,    GAWKX|A(0),    do_systime},
  2255. {"tolower",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(1),    do_tolower},
  2256. {"toupper",    Node_builtin,     LEX_BUILTIN,    NOT_OLD|A(1),    do_toupper},
  2257. {"while",    Node_K_while,     LEX_WHILE,    0,        0},
  2258. };
  2259.  
  2260. /* VARARGS0 */
  2261. static void
  2262. yyerror(va_alist)
  2263. va_dcl
  2264. {
  2265.     va_list args;
  2266.     char *mesg;
  2267.     register char *bp, *cp;
  2268.     char *scan;
  2269.     char buf[120];
  2270.  
  2271.     errcount++;
  2272.     /* Find the current line in the input file */
  2273.     if (lexptr) {
  2274.         if (!thisline) {
  2275.             for (cp=lexeme; cp != lexptr_begin && *cp != '\n'; --cp)
  2276.                 ;
  2277.             if (*cp == '\n')
  2278.                 cp++;
  2279.             thisline = cp;
  2280.         }
  2281.         /* NL isn't guaranteed */
  2282.         bp = lexeme;
  2283.         while (bp < lexend && *bp && *bp != '\n')
  2284.             bp++;
  2285.     } else {
  2286.         thisline = "(END OF FILE)";
  2287.         bp = thisline + 13;
  2288.     }
  2289.     msg("%.*s", (int) (bp - thisline), thisline);
  2290.     bp = buf;
  2291.     cp = buf + sizeof(buf) - 24;    /* 24 more than longest msg. input */
  2292.     if (lexptr) {
  2293.         scan = thisline;
  2294.         while (bp < cp && scan < lexeme)
  2295.             if (*scan++ == '\t')
  2296.                 *bp++ = '\t';
  2297.             else
  2298.                 *bp++ = ' ';
  2299.         *bp++ = '^';
  2300.         *bp++ = ' ';
  2301.     }
  2302.     va_start(args);
  2303.     mesg = va_arg(args, char *);
  2304.     strcpy(bp, mesg);
  2305.     err("", buf, args);
  2306.     va_end(args);
  2307.     exit(2);
  2308. }
  2309.  
  2310. static char *
  2311. get_src_buf()
  2312. {
  2313.     static int samefile = 0;
  2314.     static int nextfile = 0;
  2315.     static char *buf = NULL;
  2316.     static int fd;
  2317.     int n;
  2318.     register char *scan;
  2319.     static int len = 0;
  2320.     static int did_newline = 0;
  2321. #    define    SLOP    128    /* enough space to hold most source lines */
  2322.  
  2323.     if (cmdline_src) {
  2324.         if (len == 0) {
  2325.             len = strlen(cmdline_src);
  2326.             if (len == 0)
  2327.                 cmdline_src = NULL;
  2328.             sourceline = 1;
  2329.             lexptr = lexptr_begin = cmdline_src;
  2330.             lexend = lexptr + len;
  2331.         } else if (!did_newline && *(lexptr-1) != '\n') {
  2332.             /*
  2333.              * The following goop is to ensure that the source
  2334.              * ends with a newline and that the entire current
  2335.              * line is available for error messages.
  2336.              */
  2337.             int offset;
  2338.  
  2339.             did_newline = 1;
  2340.             offset = lexptr - lexeme;
  2341.             for (scan = lexeme; scan > lexptr_begin; scan--)
  2342.                 if (*scan == '\n') {
  2343.                     scan++;
  2344.                     break;
  2345.                 }
  2346.             len = lexptr - scan;
  2347.             emalloc(buf, char *, len+1, "get_src_buf");
  2348.             memcpy(buf, scan, len);
  2349.             thisline = buf;
  2350.             lexptr = buf + len;
  2351.             *lexptr = '\n';
  2352.             lexeme = lexptr - offset;
  2353.             lexptr_begin = buf;
  2354.             lexend = lexptr + 1;
  2355.         } else
  2356.             lexeme = lexptr = lexptr_begin = NULL;
  2357.         return lexptr;
  2358.     }
  2359.     if (!samefile) {
  2360.         source = srcfiles[nextfile];
  2361.         if (source == NULL) {
  2362.             if (buf)
  2363.                 free(buf);
  2364.             return lexeme = lexptr = lexptr_begin = NULL;
  2365.         }
  2366.         fd = pathopen(source);
  2367.         if (fd == -1)
  2368.             fatal("can't open source file \"%s\" for reading (%s)",
  2369.                 source, strerror(errno));
  2370.         len = optimal_bufsize(fd);
  2371.         if (buf)
  2372.             free(buf);
  2373.         emalloc(buf, char *, len + SLOP, "get_src_buf");
  2374.         lexptr_begin = buf + SLOP;
  2375.         samefile = 1;
  2376.         sourceline = 1;
  2377.     } else {
  2378.         /*
  2379.          * Here, we retain the current source line (up to length SLOP)
  2380.          * in the beginning of the buffer that was overallocated above
  2381.          */
  2382.         int offset;
  2383.         int linelen;
  2384.  
  2385.         offset = lexptr - lexeme;
  2386.         for (scan = lexeme; scan > lexptr_begin; scan--)
  2387.             if (*scan == '\n') {
  2388.                 scan++;
  2389.                 break;
  2390.             }
  2391.         linelen = lexptr - scan;
  2392.         if (linelen > SLOP)
  2393.             len = SLOP;
  2394.         thisline = buf + SLOP - linelen;
  2395.         memcpy(thisline, scan, linelen);
  2396.         lexeme = buf + SLOP - offset;
  2397.         lexptr_begin = thisline;
  2398.     }
  2399.     n = read(fd, buf + SLOP, len);
  2400.     if (n == -1)
  2401.         fatal("can't read sourcefile \"%s\" (%s)",
  2402.             source, strerror(errno));
  2403.     if (n == 0) {
  2404.         samefile = 0;
  2405.         nextfile++;
  2406.         return get_src_buf();
  2407.     }
  2408.     lexptr = buf + SLOP;
  2409.     lexend = lexptr + n;
  2410.     return buf;
  2411. }
  2412.  
  2413. #define    tokadd(x) (*token++ = (x), token == tokend ? tokexpand() : token)
  2414.  
  2415. char *
  2416. tokexpand()
  2417. {
  2418.     static int toksize = 60;
  2419.     int tokoffset;
  2420.  
  2421.     tokoffset = token - tokstart;
  2422.     toksize *= 2;
  2423.     if (tokstart)
  2424.         erealloc(tokstart, char *, toksize, "tokexpand");
  2425.     else
  2426.         emalloc(tokstart, char *, toksize, "tokexpand");
  2427.     tokend = tokstart + toksize;
  2428.     token = tokstart + tokoffset;
  2429.     return token;
  2430. }
  2431.  
  2432. #ifdef DEBUG
  2433. char
  2434. nextc() {
  2435.     if (lexptr && lexptr < lexend)
  2436.         return *lexptr++;
  2437.     if (get_src_buf())
  2438.         return *lexptr++;
  2439.     return '\0';
  2440. }
  2441. #else
  2442. #define    nextc()    ((lexptr && lexptr < lexend) ? \
  2443.             *lexptr++ : \
  2444.             (get_src_buf() ? *lexptr++ : '\0') \
  2445.         )
  2446. #endif
  2447. #define pushback() (lexptr && lexptr > lexptr_begin ? lexptr-- : lexptr)
  2448.  
  2449. /*
  2450.  * Read the input and turn it into tokens.
  2451.  */
  2452.  
  2453. static int
  2454. yylex()
  2455. {
  2456.     register int c;
  2457.     int seen_e = 0;        /* These are for numbers */
  2458.     int seen_point = 0;
  2459.     int esc_seen;        /* for literal strings */
  2460.     int low, mid, high;
  2461.     static int did_newline = 0;
  2462.     char *tokkey;
  2463.  
  2464.     if (!nextc())
  2465.         return 0;
  2466.     pushback();
  2467.     lexeme = lexptr;
  2468.     thisline = NULL;
  2469.     if (want_regexp) {
  2470.         int in_brack = 0;
  2471.  
  2472.         want_regexp = 0;
  2473.         token = tokstart;
  2474.         while ((c = nextc()) != 0) {
  2475.             switch (c) {
  2476.             case '[':
  2477.                 in_brack = 1;
  2478.                 break;
  2479.             case ']':
  2480.                 in_brack = 0;
  2481.                 break;
  2482.             case '\\':
  2483.                 if ((c = nextc()) == '\0') {
  2484.                     yyerror("unterminated regexp ends with \\ at end of file");
  2485.                 } else if (c == '\n') {
  2486.                     sourceline++;
  2487.                     continue;
  2488.                 } else
  2489.                     tokadd('\\');
  2490.                 break;
  2491.             case '/':    /* end of the regexp */
  2492.                 if (in_brack)
  2493.                     break;
  2494.  
  2495.                 pushback();
  2496.                 tokadd('\0');
  2497.                 yylval.sval = tokstart;
  2498.                 return REGEXP;
  2499.             case '\n':
  2500.                 pushback();
  2501.                 yyerror("unterminated regexp");
  2502.             case '\0':
  2503.                 yyerror("unterminated regexp at end of file");
  2504.             }
  2505.             tokadd(c);
  2506.         }
  2507.     }
  2508. retry:
  2509.     while ((c = nextc()) == ' ' || c == '\t')
  2510.         ;
  2511.  
  2512.     lexeme = lexptr-1;
  2513.     thisline = NULL;
  2514.     token = tokstart;
  2515.     yylval.nodetypeval = Node_illegal;
  2516.  
  2517.     switch (c) {
  2518.     case 0:
  2519.         return 0;
  2520.  
  2521.     case '\n':
  2522.         sourceline++;
  2523.         return NEWLINE;
  2524.  
  2525.     case '#':        /* it's a comment */
  2526.         while ((c = nextc()) != '\n') {
  2527.             if (c == '\0')
  2528.                 return 0;
  2529.         }
  2530.         sourceline++;
  2531.         return NEWLINE;
  2532.  
  2533.     case '\\':
  2534. #ifdef RELAXED_CONTINUATION
  2535.         if (!strict) {    /* strip trailing white-space and/or comment */
  2536.             while ((c = nextc()) == ' ' || c == '\t') continue;
  2537.             if (c == '#')
  2538.                 while ((c = nextc()) != '\n') if (!c) break;
  2539.             pushback();
  2540.         }
  2541. #endif /*RELAXED_CONTINUATION*/
  2542.         if (nextc() == '\n') {
  2543.             sourceline++;
  2544.             goto retry;
  2545.         } else
  2546.             yyerror("inappropriate use of backslash");
  2547.         break;
  2548.  
  2549.     case '$':
  2550.         want_assign = 1;
  2551.         return '$';
  2552.  
  2553.     case ')':
  2554.     case ']':
  2555.     case '(':    
  2556.     case '[':
  2557.     case ';':
  2558.     case ':':
  2559.     case '?':
  2560.     case '{':
  2561.     case ',':
  2562.         return c;
  2563.  
  2564.     case '*':
  2565.         if ((c = nextc()) == '=') {
  2566.             yylval.nodetypeval = Node_assign_times;
  2567.             return ASSIGNOP;
  2568.         } else if (do_posix) {
  2569.             pushback();
  2570.             return '*';
  2571.         } else if (c == '*') {
  2572.             /* make ** and **= aliases for ^ and ^= */
  2573.             static int did_warn_op = 0, did_warn_assgn = 0;
  2574.  
  2575.             if (nextc() == '=') {
  2576.                 if (do_lint && ! did_warn_assgn) {
  2577.                     did_warn_assgn = 1;
  2578.                     warning("**= is not allowed by POSIX");
  2579.                 }
  2580.                 yylval.nodetypeval = Node_assign_exp;
  2581.                 return ASSIGNOP;
  2582.             } else {
  2583.                 pushback();
  2584.                 if (do_lint && ! did_warn_op) {
  2585.                     did_warn_op = 1;
  2586.                     warning("** is not allowed by POSIX");
  2587.                 }
  2588.                 return '^';
  2589.             }
  2590.         }
  2591.         pushback();
  2592.         return '*';
  2593.  
  2594.     case '/':
  2595.         if (want_assign) {
  2596.             if (nextc() == '=') {
  2597.                 yylval.nodetypeval = Node_assign_quotient;
  2598.                 return ASSIGNOP;
  2599.             }
  2600.             pushback();
  2601.         }
  2602.         return '/';
  2603.  
  2604.     case '%':
  2605.         if (nextc() == '=') {
  2606.             yylval.nodetypeval = Node_assign_mod;
  2607.             return ASSIGNOP;
  2608.         }
  2609.         pushback();
  2610.         return '%';
  2611.  
  2612.     case '^':
  2613.     {
  2614.         static int did_warn_op = 0, did_warn_assgn = 0;
  2615.  
  2616.         if (nextc() == '=') {
  2617.  
  2618.             if (do_lint && ! did_warn_assgn) {
  2619.                 did_warn_assgn = 1;
  2620.                 warning("operator `^=' is not supported in old awk");
  2621.             }
  2622.             yylval.nodetypeval = Node_assign_exp;
  2623.             return ASSIGNOP;
  2624.         }
  2625.         pushback();
  2626.         if (do_lint && ! did_warn_op) {
  2627.             did_warn_op = 1;
  2628.             warning("operator `^' is not supported in old awk");
  2629.         }
  2630.         return '^';
  2631.     }
  2632.  
  2633.     case '+':
  2634.         if ((c = nextc()) == '=') {
  2635.             yylval.nodetypeval = Node_assign_plus;
  2636.             return ASSIGNOP;
  2637.         }
  2638.         if (c == '+')
  2639.             return INCREMENT;
  2640.         pushback();
  2641.         return '+';
  2642.  
  2643.     case '!':
  2644.         if ((c = nextc()) == '=') {
  2645.             yylval.nodetypeval = Node_notequal;
  2646.             return RELOP;
  2647.         }
  2648.         if (c == '~') {
  2649.             yylval.nodetypeval = Node_nomatch;
  2650.             want_assign = 0;
  2651.             return MATCHOP;
  2652.         }
  2653.         pushback();
  2654.         return '!';
  2655.  
  2656.     case '<':
  2657.         if (nextc() == '=') {
  2658.             yylval.nodetypeval = Node_leq;
  2659.             return RELOP;
  2660.         }
  2661.         yylval.nodetypeval = Node_less;
  2662.         pushback();
  2663.         return '<';
  2664.  
  2665.     case '=':
  2666.         if (nextc() == '=') {
  2667.             yylval.nodetypeval = Node_equal;
  2668.             return RELOP;
  2669.         }
  2670.         yylval.nodetypeval = Node_assign;
  2671.         pushback();
  2672.         return ASSIGNOP;
  2673.  
  2674.     case '>':
  2675.         if ((c = nextc()) == '=') {
  2676.             yylval.nodetypeval = Node_geq;
  2677.             return RELOP;
  2678.         } else if (c == '>') {
  2679.             yylval.nodetypeval = Node_redirect_append;
  2680.             return APPEND_OP;
  2681.         }
  2682.         yylval.nodetypeval = Node_greater;
  2683.         pushback();
  2684.         return '>';
  2685.  
  2686.     case '~':
  2687.         yylval.nodetypeval = Node_match;
  2688.         want_assign = 0;
  2689.         return MATCHOP;
  2690.  
  2691.     case '}':
  2692.         /*
  2693.          * Added did newline stuff.  Easier than
  2694.          * hacking the grammar
  2695.          */
  2696.         if (did_newline) {
  2697.             did_newline = 0;
  2698.             return c;
  2699.         }
  2700.         did_newline++;
  2701.         --lexptr;    /* pick up } next time */
  2702.         return NEWLINE;
  2703.  
  2704.     case '"':
  2705.         esc_seen = 0;
  2706.         while ((c = nextc()) != '"') {
  2707.             if (c == '\n') {
  2708.                 pushback();
  2709.                 yyerror("unterminated string");
  2710.             }
  2711.             if (c == '\\') {
  2712.                 c = nextc();
  2713.                 if (c == '\n') {
  2714.                     sourceline++;
  2715.                     continue;
  2716.                 }
  2717.                 esc_seen = 1;
  2718.                 tokadd('\\');
  2719.             }
  2720.             if (c == '\0') {
  2721.                 pushback();
  2722.                 yyerror("unterminated string");
  2723.             }
  2724.             tokadd(c);
  2725.         }
  2726.         yylval.nodeval = make_str_node(tokstart,
  2727.                     token - tokstart, esc_seen ? SCAN : 0);
  2728.         yylval.nodeval->flags |= PERM;
  2729.         return YSTRING;
  2730.  
  2731.     case '-':
  2732.         if ((c = nextc()) == '=') {
  2733.             yylval.nodetypeval = Node_assign_minus;
  2734.             return ASSIGNOP;
  2735.         }
  2736.         if (c == '-')
  2737.             return DECREMENT;
  2738.         pushback();
  2739.         return '-';
  2740.  
  2741.     case '.':
  2742.         c = nextc();
  2743.         pushback();
  2744.         if (!isdigit(c))
  2745.             return '.';
  2746.         else
  2747.             c = '.';    /* FALL THROUGH */
  2748.     case '0':
  2749.     case '1':
  2750.     case '2':
  2751.     case '3':
  2752.     case '4':
  2753.     case '5':
  2754.     case '6':
  2755.     case '7':
  2756.     case '8':
  2757.     case '9':
  2758.         /* It's a number */
  2759.         for (;;) {
  2760.             int gotnumber = 0;
  2761.  
  2762.             tokadd(c);
  2763.             switch (c) {
  2764.             case '.':
  2765.                 if (seen_point) {
  2766.                     gotnumber++;
  2767.                     break;
  2768.                 }
  2769.                 ++seen_point;
  2770.                 break;
  2771.             case 'e':
  2772.             case 'E':
  2773.                 if (seen_e) {
  2774.                     gotnumber++;
  2775.                     break;
  2776.                 }
  2777.                 ++seen_e;
  2778.                 if ((c = nextc()) == '-' || c == '+')
  2779.                     tokadd(c);
  2780.                 else
  2781.                     pushback();
  2782.                 break;
  2783.             case '0':
  2784.             case '1':
  2785.             case '2':
  2786.             case '3':
  2787.             case '4':
  2788.             case '5':
  2789.             case '6':
  2790.             case '7':
  2791.             case '8':
  2792.             case '9':
  2793.                 break;
  2794.             default:
  2795.                 gotnumber++;
  2796.             }
  2797.             if (gotnumber)
  2798.                 break;
  2799.             c = nextc();
  2800.         }
  2801.         pushback();
  2802.         yylval.nodeval = make_number(atof(tokstart));
  2803.         yylval.nodeval->flags |= PERM;
  2804.         return YNUMBER;
  2805.  
  2806.     case '&':
  2807.         if ((c = nextc()) == '&') {
  2808.             yylval.nodetypeval = Node_and;
  2809.             for (;;) {
  2810.                 c = nextc();
  2811.                 if (c == '\0')
  2812.                     break;
  2813.                 if (c == '#') {
  2814.                     while ((c = nextc()) != '\n' && c != '\0')
  2815.                         ;
  2816.                     if (c == '\0')
  2817.                         break;
  2818.                 }
  2819.                 if (c == '\n')
  2820.                     sourceline++;
  2821.                 if (! isspace(c)) {
  2822.                     pushback();
  2823.                     break;
  2824.                 }
  2825.             }
  2826.             want_assign = 0;
  2827.             return LEX_AND;
  2828.         }
  2829.         pushback();
  2830.         return '&';
  2831.  
  2832.     case '|':
  2833.         if ((c = nextc()) == '|') {
  2834.             yylval.nodetypeval = Node_or;
  2835.             for (;;) {
  2836.                 c = nextc();
  2837.                 if (c == '\0')
  2838.                     break;
  2839.                 if (c == '#') {
  2840.                     while ((c = nextc()) != '\n' && c != '\0')
  2841.                         ;
  2842.                     if (c == '\0')
  2843.                         break;
  2844.                 }
  2845.                 if (c == '\n')
  2846.                     sourceline++;
  2847.                 if (! isspace(c)) {
  2848.                     pushback();
  2849.                     break;
  2850.                 }
  2851.             }
  2852.             want_assign = 0;
  2853.             return LEX_OR;
  2854.         }
  2855.         pushback();
  2856.         return '|';
  2857.     }
  2858.  
  2859.     if (c != '_' && ! isalpha(c))
  2860.         yyerror("Invalid char '%c' in expression\n", c);
  2861.  
  2862.     /* it's some type of name-type-thing.  Find its length */
  2863.     token = tokstart;
  2864.     while (is_identchar(c)) {
  2865.         tokadd(c);
  2866.         c = nextc();
  2867.     }
  2868.     tokadd('\0');
  2869.     emalloc(tokkey, char *, token - tokstart, "yylex");
  2870.     memcpy(tokkey, tokstart, token - tokstart);
  2871.     pushback();
  2872.  
  2873.     /* See if it is a special token.  */
  2874.     low = 0;
  2875.     high = (sizeof (tokentab) / sizeof (tokentab[0])) - 1;
  2876.     while (low <= high) {
  2877.         int i/* , c */;
  2878.  
  2879.         mid = (low + high) / 2;
  2880.         c = *tokstart - tokentab[mid].operator[0];
  2881.         i = c ? c : strcmp (tokstart, tokentab[mid].operator);
  2882.  
  2883.         if (i < 0) {        /* token < mid */
  2884.             high = mid - 1;
  2885.         } else if (i > 0) {    /* token > mid */
  2886.             low = mid + 1;
  2887.         } else {
  2888.             if (do_lint) {
  2889.                 if (tokentab[mid].flags & GAWKX)
  2890.                     warning("%s() is a gawk extension",
  2891.                         tokentab[mid].operator);
  2892.                 if (tokentab[mid].flags & NOT_POSIX)
  2893.                     warning("POSIX does not allow %s",
  2894.                         tokentab[mid].operator);
  2895.                 if (tokentab[mid].flags & NOT_OLD)
  2896.                     warning("%s is not supported in old awk",
  2897.                         tokentab[mid].operator);
  2898.             }
  2899.             if ((strict && (tokentab[mid].flags & GAWKX))
  2900.                 || (do_posix && (tokentab[mid].flags & NOT_POSIX)))
  2901.                 break;
  2902.             if (tokentab[mid].class == LEX_BUILTIN
  2903.                 || tokentab[mid].class == LEX_LENGTH
  2904.                )
  2905.                 yylval.lval = mid;
  2906.             else
  2907.                 yylval.nodetypeval = tokentab[mid].value;
  2908.  
  2909.             return tokentab[mid].class;
  2910.         }
  2911.     }
  2912.  
  2913.     yylval.sval = tokkey;
  2914.     if (*lexptr == '(')
  2915.         return FUNC_CALL;
  2916.     else {
  2917.         want_assign = 1;
  2918.         return NAME;
  2919.     }
  2920. }
  2921.  
  2922. static NODE *
  2923. node_common(op)
  2924. NODETYPE op;
  2925. {
  2926.     register NODE *r;
  2927.  
  2928.     getnode(r);
  2929.     r->type = op;
  2930.     r->flags = MALLOC;
  2931.     /* if lookahead is NL, lineno is 1 too high */
  2932.     if (lexeme && *lexeme == '\n')
  2933.         r->source_line = sourceline - 1;
  2934.     else
  2935.         r->source_line = sourceline;
  2936.     r->source_file = source;
  2937.     return r;
  2938. }
  2939.  
  2940. /*
  2941.  * This allocates a node with defined lnode and rnode. 
  2942.  */
  2943. NODE *
  2944. node(left, op, right)
  2945. NODE *left, *right;
  2946. NODETYPE op;
  2947. {
  2948.     register NODE *r;
  2949.  
  2950.     r = node_common(op);
  2951.     r->lnode = left;
  2952.     r->rnode = right;
  2953.     return r;
  2954. }
  2955.  
  2956. /*
  2957.  * This allocates a node with defined subnode and proc for builtin functions
  2958.  * Checks for arg. count and supplies defaults where possible.
  2959.  */
  2960. static NODE *
  2961. snode(subn, op, idx)
  2962. NODETYPE op;
  2963. int idx;
  2964. NODE *subn;
  2965. {
  2966.     register NODE *r;
  2967.     register NODE *n;
  2968.     int nexp = 0;
  2969.     int args_allowed;
  2970.  
  2971.     r = node_common(op);
  2972.  
  2973.     /* traverse expression list to see how many args. given */
  2974.     for (n= subn; n; n= n->rnode) {
  2975.         nexp++;
  2976.         if (nexp > 3)
  2977.             break;
  2978.     }
  2979.  
  2980.     /* check against how many args. are allowed for this builtin */
  2981.     args_allowed = tokentab[idx].flags & ARGS;
  2982.     if (args_allowed && !(args_allowed & A(nexp)))
  2983.         fatal("%s() cannot have %d argument%c",
  2984.             tokentab[idx].operator, nexp, nexp == 1 ? ' ' : 's');
  2985.  
  2986.     r->proc = tokentab[idx].ptr;
  2987.  
  2988.     /* special case processing for a few builtins */
  2989.     if (nexp == 0 && r->proc == do_length) {
  2990.         subn = node(node(make_number(0.0),Node_field_spec,(NODE *)NULL),
  2991.                     Node_expression_list,
  2992.                 (NODE *) NULL);
  2993.     } else if (r->proc == do_match) {
  2994.         if (subn->rnode->lnode->type != Node_regex)
  2995.             subn->rnode->lnode = mk_rexp(subn->rnode->lnode);
  2996.     } else if (r->proc == do_sub || r->proc == do_gsub) {
  2997.         if (subn->lnode->type != Node_regex)
  2998.             subn->lnode = mk_rexp(subn->lnode);
  2999.         if (nexp == 2)
  3000.             append_right(subn, node(node(make_number(0.0),
  3001.                              Node_field_spec,
  3002.                              (NODE *) NULL),
  3003.                             Node_expression_list,
  3004.                         (NODE *) NULL));
  3005.         else if (do_lint && subn->rnode->rnode->lnode->type == Node_val)
  3006.             warning("string literal as last arg of substitute");
  3007.     } else if (r->proc == do_split) {
  3008.         if (nexp == 2)
  3009.             append_right(subn,
  3010.                 node(FS_node, Node_expression_list, (NODE *) NULL));
  3011.         n = subn->rnode->rnode->lnode;
  3012.         if (n->type != Node_regex)
  3013.             subn->rnode->rnode->lnode = mk_rexp(n);
  3014.         if (nexp == 2)
  3015.             subn->rnode->rnode->lnode->re_flags |= FS_DFLT;
  3016.     }
  3017.  
  3018.     r->subnode = subn;
  3019.     return r;
  3020. }
  3021.  
  3022. /*
  3023.  * This allocates a Node_line_range node with defined condpair and
  3024.  * zeroes the trigger word to avoid the temptation of assuming that calling
  3025.  * 'node( foo, Node_line_range, 0)' will properly initialize 'triggered'. 
  3026.  */
  3027. /* Otherwise like node() */
  3028. static NODE *
  3029. mkrangenode(cpair)
  3030. NODE *cpair;
  3031. {
  3032.     register NODE *r;
  3033.  
  3034.     getnode(r);
  3035.     r->type = Node_line_range;
  3036.     r->condpair = cpair;
  3037.     r->triggered = 0;
  3038.     return r;
  3039. }
  3040.  
  3041. /* Build a for loop */
  3042. static NODE *
  3043. make_for_loop(init, cond, incr)
  3044. NODE *init, *cond, *incr;
  3045. {
  3046.     register FOR_LOOP_HEADER *r;
  3047.     NODE *n;
  3048.  
  3049.     emalloc(r, FOR_LOOP_HEADER *, sizeof(FOR_LOOP_HEADER), "make_for_loop");
  3050.     getnode(n);
  3051.     n->type = Node_illegal;
  3052.     r->init = init;
  3053.     r->cond = cond;
  3054.     r->incr = incr;
  3055.     n->sub.nodep.r.hd = r;
  3056.     return n;
  3057. }
  3058.  
  3059. /*
  3060.  * Install a name in the symbol table, even if it is already there.
  3061.  * Caller must check against redefinition if that is desired. 
  3062.  */
  3063. NODE *
  3064. install(name, value)
  3065. char *name;
  3066. NODE *value;
  3067. {
  3068.     register NODE *hp;
  3069.     register int len, bucket;
  3070.  
  3071.     len = strlen(name);
  3072.     bucket = hash(name, len);
  3073.     getnode(hp);
  3074.     hp->type = Node_hashnode;
  3075.     hp->hnext = variables[bucket];
  3076.     variables[bucket] = hp;
  3077.     hp->hlength = len;
  3078.     hp->hvalue = value;
  3079.     hp->hname = name;
  3080.     return hp->hvalue;
  3081. }
  3082.  
  3083. /* find the most recent hash node for name installed by install */
  3084. NODE *
  3085. lookup(name)
  3086. char *name;
  3087. {
  3088.     register NODE *bucket;
  3089.     register int len;
  3090.  
  3091.     len = strlen(name);
  3092.     bucket = variables[hash(name, len)];
  3093.     while (bucket) {
  3094.         if (bucket->hlength == len && STREQN(bucket->hname, name, len))
  3095.             return bucket->hvalue;
  3096.         bucket = bucket->hnext;
  3097.     }
  3098.     return NULL;
  3099. }
  3100.  
  3101. /*
  3102.  * Add new to the rightmost branch of LIST.  This uses n^2 time, so we make
  3103.  * a simple attempt at optimizing it.
  3104.  */
  3105. static NODE *
  3106. append_right(list, new)
  3107. NODE *list, *new;
  3108. {
  3109.     register NODE *oldlist;
  3110.     static NODE *savefront = NULL, *savetail = NULL;
  3111.  
  3112.     oldlist = list;
  3113.     if (savefront == oldlist) {
  3114.         savetail = savetail->rnode = new;
  3115.         return oldlist;
  3116.     } else
  3117.         savefront = oldlist;
  3118.     while (list->rnode != NULL)
  3119.         list = list->rnode;
  3120.     savetail = list->rnode = new;
  3121.     return oldlist;
  3122. }
  3123.  
  3124. /*
  3125.  * check if name is already installed;  if so, it had better have Null value,
  3126.  * in which case def is added as the value. Otherwise, install name with def
  3127.  * as value. 
  3128.  */
  3129. static void
  3130. func_install(params, def)
  3131. NODE *params;
  3132. NODE *def;
  3133. {
  3134.     NODE *r;
  3135.  
  3136.     pop_params(params->rnode);
  3137.     pop_var(params, 0);
  3138.     r = lookup(params->param);
  3139.     if (r != NULL) {
  3140.         fatal("function name `%s' previously defined", params->param);
  3141.     } else
  3142.         (void) install(params->param, node(params, Node_func, def));
  3143. }
  3144.  
  3145. static void
  3146. pop_var(np, freeit)
  3147. NODE *np;
  3148. int freeit;
  3149. {
  3150.     register NODE *bucket, **save;
  3151.     register int len;
  3152.     char *name;
  3153.  
  3154.     name = np->param;
  3155.     len = strlen(name);
  3156.     save = &(variables[hash(name, len)]);
  3157.     for (bucket = *save; bucket; bucket = bucket->hnext) {
  3158.         if (len == bucket->hlength && STREQN(bucket->hname, name, len)) {
  3159.             *save = bucket->hnext;
  3160.             freenode(bucket);
  3161.             if (freeit)
  3162.                 free(np->param);
  3163.             return;
  3164.         }
  3165.         save = &(bucket->hnext);
  3166.     }
  3167. }
  3168.  
  3169. static void
  3170. pop_params(params)
  3171. NODE *params;
  3172. {
  3173.     register NODE *np;
  3174.  
  3175.     for (np = params; np != NULL; np = np->rnode)
  3176.         pop_var(np, 1);
  3177. }
  3178.  
  3179. static NODE *
  3180. make_param(name)
  3181. char *name;
  3182. {
  3183.     NODE *r;
  3184.  
  3185.     getnode(r);
  3186.     r->type = Node_param_list;
  3187.     r->rnode = NULL;
  3188.     r->param = name;
  3189.     r->param_cnt = param_counter++;
  3190.     return (install(name, r));
  3191. }
  3192.  
  3193. /* Name points to a variable name.  Make sure its in the symbol table */
  3194. NODE *
  3195. variable(name, can_free)
  3196. char *name;
  3197. int can_free;
  3198. {
  3199.     register NODE *r;
  3200.     static int env_loaded = 0;
  3201.  
  3202.     if (!env_loaded && STREQ(name, "ENVIRON")) {
  3203.         load_environ();
  3204.         env_loaded = 1;
  3205.     }
  3206.     if ((r = lookup(name)) == NULL)
  3207.         r = install(name, node(Nnull_string, Node_var, (NODE *) NULL));
  3208.     else if (can_free)
  3209.         free(name);
  3210.     return r;
  3211. }
  3212.  
  3213. static NODE *
  3214. mk_rexp(exp)
  3215. NODE *exp;
  3216. {
  3217.     if (exp->type == Node_regex)
  3218.         return exp;
  3219.     else {
  3220.         NODE *n;
  3221.  
  3222.         getnode(n);
  3223.         n->type = Node_regex;
  3224.         n->re_exp = exp;
  3225.         n->re_text = NULL;
  3226.         n->re_reg = NULL;
  3227.         n->re_flags = 0;
  3228.         n->re_cnt = 1;
  3229.         return n;
  3230.     }
  3231. }
  3232.